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

Question

Информатика

Гермоген

24 июля, 00:18

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

+1

Ответы (2)

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

Ларуся · Answer 1

Var

i:integer;

begin

For i: = 1 to 1000 do

Writeln (i) ;

end.

Нинона · Answer 2

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.