Заполнение массива случайными числами (Pascal)

matvey343

17 апреля 2016

Создать массив из 100 элементов, заполнить его случайным целыми числами

Исходный код на языке Pascal

const Sz = 100; // Размер массива
 
var 
  a: array [1..Sz] of integer;
  N: integer; // Количество элементов в массиве
  i: integer;
 
begin
  N := 20;
  for i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for i:=1 to N do
    write(a[i],' ');
end.