Заполнить массив 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(;     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(; for i: =1 to 30 do  writeln(z[i]); end.  

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.