Задание 3. Написать программу, которая сформирует массив из 10 случайных чисел и выведет их по одному в строке.

Процедура Randomize запускает генератор случайных чисел, а Random(100) даёт значения от 0 до 99. При необходимости диапазон можно изменить.

program Task3;
var
  a: array[1..10] of integer;
  i: integer;
begin
  Randomize;
  for i := 1 to 10 do
    a[i] := Random(100);
  for i := 1 to 10 do
    writeln(a[i]);
end.