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

Program test;
uses crt;
var
  arr:array[1..5,1..10] of integer;
  vec:array[1..10] of integer;
  i,j:integer;
begin
  clrscr;
  randomize;
  for i:=1 to 5 do
    begin
    for j:=1 to 10 do
      begin
        arr[i,j]:=random(19)-9;
        write(arr[i,j],' ');
      end;
    writeln;
    end;

  for j:=1 to 10 do
    begin
      vec[j]:=abs(arr[1,j]);
      for i:=1 to 5 do
        if vec[j]>abs(arr[i,j]) then vec[j]:=abs(arr[i,j]);
    end;
 
  writeln;
  for i:=1 to 10 do
    write(vec[i],' ');
end.