{Файл: prog62.pas
Задача:
  Дана целочисленная прямоугольная матрица m*n, заполненная случайными числами. 
  Среди сумм элементов  столбцов матрицы найти наименьшую.
Автор:
  
Дата:
  03,11,2015}
  const
  m = 5;
  n = 4;
  
  var
  a: array [1..m, 1..n] of integer;
  i, j : integer;
  Sum, MinSum : integer;
  
begin
  {Заполнение матрицы случайными числами}
  randomize;
  for i:=1 to m do
    for j:= 1 to n do
      a[i, j]:=random(100);
      
  {Вывод матрицы на экран}
  writeln ('Исходная матрица:');
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(a[i, j]:4);
    writeln;
  end;
  
  MinSum:=MaxInt;
        {Сумма стобцов}
  for j:=1 to n do  {Перебор строк матрицы}
    begin
      
      Sum :=0; 
      for i:=1 to m do
        Sum:= Sum + a[i,j]; {Прибавление элемента в сумму}
        if MinSum> Sum then
          MinSum:=Sum;
    end;
    
   {Вывод ответа}
  writeln ('Минимальная сумма столбцов= ', MinSum); 
end.