Question

заполнить массив из 10 элементов из промежутка (1,100) случайными числами

Answer 1

var a: array[1..10] of integer;

i: integer;

begin

randomize;

for i:=1 to 10 do a[i]:=random(98)+2;

write('заполненный массив: ');

for i:=1 to 10 do write(a[i],' ');

end.