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

const rn = 100;

var a: array [1..rn] of integer; N: integer; i: integer;

begin N := 50; // N — количество элементов массива, указанное в условии задания. for i := 1 to N do a[i] := Random(100); writeln ( \'Элементы массива: \' ); for i := 1 to N do write ( a[i], \' \' );end.