Розв’язок задачі з Абрамова №390б

Всі умови | Умова: Дана дійсна матриця розміру п х т. Отримати послідовність b1, ..., Bn, де BK - це сума найбільшого і найменшого із значень елементів K-й рядки. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №390)

program Pr390_2;
var
  b : array[1..100, 1..100] of integer;
  i, j, n, m, max, min : integer;
  sum : array[1..100] of integer;
begin
  Randomize;
  readln(n, m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
       b[i,j] := random(100);
       write(b[i,j]:3,' ');
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do
  begin
    max := b[i,1];
    min := b[i,1];
    for j := 1 to m do
    begin
       if max < b[i,j] then max := b[i,j];
       if min > b[i,j] then min := b[i,j];
    end;
    sum[i] := (min + max);
  end;
  for i:=1 to n do
    writeln('sum=', sum[i]);
  readln;
end.