задания по теме массивы

[arai uzbekova]

дан двумерный массив А размерности 4х5.Сформировать одномерный массив В,элементами которого будут являться минимальные элементы в каждом столбце массива А.

[fbus]

контакт в подписи

[bablzz]

uses crt;
Type
Vector = array [1..4, 1..5] of integer;
mas = array [1..5] of integer;
Var m: vector;
    b: mas;
    z:integer;

procedure InMas(var A:vector);
    var i,j: integer;
begin
  for i :=1 to 4 do
      for j :=1 to 5 do
         readln ( a[i,j]);
end;

procedure OutMatr(var A:vector);
    var i,j: integer;
begin
     for i :=1 to 4 do
         begin
               for j :=1 to 5 do
                   write ( a [ i , j ], ' ');
                         writeln ;
         end ;
end;

procedure Obrabotka(var A:vector; var t:mas);
var
   i, j, min:integer;
begin
min:=0;
for i:=1 to 5 do
    begin
         min:=0;
         for j:=1 to 4 do
             begin
                  if min>a[j,i] then min:=a[j,i];
             end;
    t[i]:=min;
    end;
for i:=1 to 5 do write(t[i],' ');
end;

begin
InMas(M);
writeln;
Obrabotka(M, b);
writeln;
writeln('Матрица');
OutMatr(M);
end.

проверяй, пробуй.