Дан двумерный массив размером n*m заполненный случайным образом. получить одномерный массив, элементами которого являются сумма наименьшего и наибольшего элементов соответственной строки двумерного массива (в паскале)

program zz1;

const n = 4;

m = 7; / / задаем количество элементов в массиве

var i, j, min, max:integer; / / задаем переменные целого типа

b:array [1 ... n, 1 ... m] of integer;

a:array [1 ... n] of integer;

begin

for i:=1 to n do

for j:=1 to m do / / получаем числа и записываем их в массив

b[i, j]:=random (10);

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to m do

write (b[i, j]:4);

writeln;

end;

min:=100000; max:=0;

for i:=1 to n do

begin

for j:=1 to m do

begin

if b[i, j] < = min then min:=b[i, j];

if b[i, j] > = max then max:=b[i, j];

end;

a[i]:=min + max;

min:=100000; max:=0;

end;

writeln;

for i:=1 to n do write (a[i]:4);

end.