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