Question

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

Answer 1

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.