-
Begin
Randomize;
Writeln(' ');
Readln(N);
S1:=0;
S2:=0;
For i:=1 to N do
begin
x:=Random(201)-100;
if x < 0 Then S2:=S2+x else S1:=S1+x;
end;
Writeln('S1= ', S1, ' S2= ', S2);
Readln
End.
| Алгоритмический язык Pascal |
-
Begin
Randomize;
Writeln(' ');
Readln(N);
S1:=0;
S2:=0;
For i:=1 to N do
begin
x:=Random(201)-100;
if x < 0 Then S2:=S2+x else S1:=S1+x;
end;
Writeln('S1= ', S1, ' S2= ', S2);
Readln
End.
—одержание”чебник по ¤зыку Pascal Ћабораторные работы по программированию —правочник |