initrd (DjDance) 
[мошенник]
(16 май 2014, 22:15) (0/0)
[0]
[мошенник]
Ununseptium, R322944358821 =) кидай сколько хочешь 
я цен не знаю, тем более программа проста..
я цен не знаю, тем более программа проста.. initrd (DjDance) [мошенник]
(15 май 2014, 16:21) (0/0)
[0]
[мошенник]
Ununseptium, ну в операциях будет копейка от тебя
initrd (DjDance) [мошенник]
(14 май 2014, 22:52) (0/0)
[0]
[мошенник]
Ununseptium, копейку скинешь для повышения БЛ и истории с крупной личностью типа тебя?
initrd (DjDance) [мошенник]
(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.
---
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.
- 1 из 1
