Заполнить числовой массив, содержащий 10 элементов числами в диапазоне от 0 до 100 на Паскале

const
  n = 10;

var
  x: array[1..n] of integer;
  i:integer;
 
begin
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(101);
    Write(x[i]:5)
  end
end.

Тестовое решение:

Элементы массива:    84   63   84   84   88    8   61   76   99   31