{Файл: prog61.pas
Задача:
  Дана целочисленная прямоугольная матрица m*n заполненная случайными числами. Найти 
  сумму максимальных элементов строк матрицы.
Автор:
  
Дата:
  03,11,2015}
  
const
  m = 4;
  n = 5;
  
var
  a: array [1..m, 1..n] of integer;
  i, j : integer;
  Max, SumMax : 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;
  
  {Нахождение суммы максимальных элементов строк}
  SumMax :=0;       {Сумма максимальных строк}
  for i:=1 to m do  {Перебор строк матрицы}
    begin
      {нахождение максимума в строке с индексом i}
      Max:=a[i,1];
      for j:=2 to n do
        if a[i, j]> Max then;
          Max := a[i, j];
      SumMax := SumMax + Max; {Прибавление максимума в сумму}
    end;
    
  {Вывод ответа}
  writeln ('Сумма максимальных элементов строк  равна ', SumMax);
  
end.