Question

Напишите программу для вывода массива из 100 случайных чисел. Паскаль

Answer 1

var

a:array [1..100] of integer;

i:integer;

begin

Randomize;

for i:=1 to 100 do

begin

a[i]:=random(100);

write(a[i], ', ');

end;

end.