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

Question

Информатика

Феогния

24 апреля, 03:49

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

+5

Ответы (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.