{% else-1 %}
initrd (DjDance) * [мошенник] 2.52
(16 май 2014, 22:49) (0/0) [0]
Ununseptium, безвыходная ситуация *
initrd (DjDance) * [мошенник] 2.52
(16 май 2014, 22:15) (0/0) [0]
Ununseptium, R322944358821 =) кидай сколько хочешь * я цен не знаю, тем более программа проста..
initrd (DjDance) * [мошенник] 2.52
(15 май 2014, 16:21) (0/0) [0]
Ununseptium, ну в операциях будет копейка от тебя *
initrd (DjDance) * [мошенник] 2.52
(14 май 2014, 22:52) (0/0) [0]
Ununseptium, копейку скинешь для повышения БЛ и истории с крупной личностью типа тебя? *
initrd (DjDance) * [мошенник] 2.52
(14 май 2014, 19:08) (1/0) [1]
Ununseptium, http://pascalabc.net/WDE/?file=02851.pas?shared=Dj_Dance/Program1.pas
---
Program M5;
Var B : Array[1..100,1..100] Of Integer;
I, K : Byte;
P : Integer;
M, N : Integer;
Begin
P:=1;
readln(M);
readln(N);
For I:=1 To M Do
Begin
For K:=1 To N Do
Begin
B[I,K]:=Trunc(Random*100)-50;
Write(B[I,K]:6);
If B[I,K] > 0 Then P:=P*B[I,K]
End;
Writeln
End;
Writeln(P)
End.
initrd (DjDance) * [мошенник] 2.52
(14 май 2014, 11:07) (0/0) [0]
Если устроит после 4 вечера - сделаю..
  • 1 из 1