Написать программу вывода на экран 1000 чисел информатика

Question

Информатика

Гермоген

7 сентября, 05:59

Написать программу вывода на экран 1000 чисел информатика

+3

Ответы (2)

Знаете ответ?

Нинона · Answer 1

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.

Ларуся · Answer 2

Var

i:integer;

begin

For i: = 1 to 1000 do

Writeln (i) ;

end.