Ввести матрицу А (5,6). Найти минимальный элемент в каждом столбце

матрицы и записать их в виде одномерного массива. Массив вывести на печать с

заголовком "Массив минимумов". Поиск минимумов оформить процедурой. Для

В (7, 9) аналогично.

Program gt;

const n=5; m=6;

var i, j:integer;

a:array[1 ... 100,1 ... 100]of integer;

procedure minimum (n, m:integer) ;

var i, j, min:integer;

begin

for i:=1 to n do

for j:=1 to m do

read (a[i, j]) ;

writeln ('Массив минимумов') ;

for i:=1 to n do

begin

min:=a[i, 1];

for j:=1 to m do

if (a[i, j]
writeln (min) ;

end;

end;

begin

minimum (n, m) ;

end.

Type mas=array[,]of integer;

var

i, j:integer;

a:mas;

b:mas;

procedure masmin (a:array[,]of integer) ;

var

n, m, i, j:integer;

c:array of integer;

begin

n:=length (a, 0) - 1;

m:=length (a, 1) - 1;

setlength (c, m+1) ;

writeln ('Массив минимумов:') ;

for i:=1 to m do

begin

for j:=1 to n do

begin

if j=1 then c[i]:=a[j, 1];

if a[j, i]
end;

write (c[i],' ') ;

end;

writeln;

end;

begin

setlength (a, 6,7) ;

writeln ('Массив А:') ;

for i:=1 to 5 do

begin

for j:=1 to 6 do

begin

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

write (a[i, j],' ') ;

end;

writeln;

end;

masmin (a) ;

writeln;

setlength (b, 8,10) ;

writeln ('Массив B:') ;

for i:=1 to 7 do

begin

for j:=1 to 9 do

begin

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

write (b[i, j],' ') ;

end;

writeln;

end;

masmin (b) ;

end.