{* Задача 260 *}

Unit ZADACH260;
Interface
Implementation
Begin
 writeln('

Дана действительная матрица размера n×m. Получить последовательность b₁…, b_n, где b_k- это сумма наибольшего и наименьшего из значений элементов k-й строки.

');
End.

Program zadach260;

Uses zadach260.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  b   : Array[1..100, 1..100] Of integer;
  i   : integer;
  j   : integer;
  n   : integer;
  m   : integer;
  max : integer;
  min : integer;
  sum : Array[1..100] Of integer;
Begin
  Clrscr; {* Стираем всё с экрана *}
  Randomize;
  writeln('vvedite razmer matricu');
  writeln('n=');
  readln(n);
  writeln('m=');
  readln(m);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
    Begin
      b[i, j] := random(100);
      write(b[i, j] : 3, ' ');
    End;
    writeln; {* Вывод пустой строки *}
  End;
  writeln; {* Пустая строка *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    max := b[i, 1];
    min := b[i, 1];
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
    Begin
      If maxb[i, j] Then
        min := b[i, j];
    End;
    sum[i] := (min + max);
  End;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    writeln('sum=', sum[i]);
  readln; {* Ждем подтверждения пользователя *}
End.