1) вывести на экран двумерный массив А[2,5] в табличном виде массивзаполнить случайными числами из [30.60]

program zz1;

var a:array[1 ... 2,1 ... 5] of integer; / /заводим массив на две строки и пять столбцов

i, j:integer;

begin

for i:=1 to 2 do

for j:=1 to 5 do

a[i, j]:=random (31) + 30; / /заполняем массив случайными числами от 30 до 60

for i:=1 to 2 do

begin

for j:=1 to 5 do

write (a[i, j]:4); / /выводим массив на экран

writeln; / /переход на новую строку

end;

end.