Заполнить массив Z{30] случайными числами в интервале от 2 до 49 и вывести его на экран

Var z:array[1 ... 30]of integer;

var i:integer;

begin

randomize;

for i:=1 to 30 do begin

Z[i]: = (random (52)) - 2;

writeln (Z[i]) ;

end;

end.

значения выводить можно через отдельный цикл

var z:array[1 ... 30]of integer;

var i:integer;

begin

randomize;

for i:=1 to 30 do Z[i]: = (random (52)) - 2;

for i:=1 to 30 do writeln (Z[i]) ;

end.