Дана матрица 4 Х5 построить одномерный массив b состоящий из наименьших значений элементов строк.

P. S Turbo Pascal

Uses crt;

var a:array[1 ... 4,1 ... 5] of integer; b:array[1 ... 4] of integer;

i, j, min:integer;

begin

for i:=1 to 4 do begin

for j:=1 to 5 do begin

a[i, j]:=1+random (9) ;

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

end;

writeln;

end;

writeln;

for i:=1 to 4 do begin

min:=a[i, 1];

for j:=1 to 5 do

if min>a[i, j] then min:=a[i, j];

b[i]:=min;

end;

for i:=1 to 4 do

write (b[i]:4) ;

end.