Всі умови | Умова: Дана дійсна матриця розміру п х т. Отримати послідовність 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.