Ответы
Ответ дал:
0
Var a:array[1..5,1..5] of integer; i,j,s:integer;
Begin
randomize;
s:=0;
for i:=1 to 5
for j:=1 to 5
begin
a[i,j]:=random(201)-100;
s:=s+a[i,j];
end;
writeln('S=',s);
End.
Begin
randomize;
s:=0;
for i:=1 to 5
for j:=1 to 5
begin
a[i,j]:=random(201)-100;
s:=s+a[i,j];
end;
writeln('S=',s);
End.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад