Morallador
5 год назад
написать программу вывода на экран 1000 чисел информатика
ОТВЕТЫ
Роман
Oct 24, 2020
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.
619
Смежные вопросы:
