Ответы
Ответ дал:
0
var
a: array[1..1000] of integer;
i, j,n: integer;
begin
for i := 1 to 1000 do begin
a[i]:=random(10000)-5000; write(a[i]:6, ' ');
end;
readln;
end.
a: array[1..1000] of integer;
i, j,n: integer;
begin
for i := 1 to 1000 do begin
a[i]:=random(10000)-5000; write(a[i]:6, ' ');
end;
readln;
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад