const n=5;
m=5;
var a:array[1..n,1..m]of integer;
b:array[1..n]of integer;
i,j:byte;
function getsum(var i:byte):integer;
var jmin,jmax:byte;
begin
jmin:=1; jmax:=1;
for j:=2 to m do
begin
if a[i,j]>a[i,jmax] then jmax:=j;
if a[i,j]<a[i,jmin] then jmin:=j;
end;
getsum:=a[i,jmax]+a[i,jmin];
end;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Результат:');
for i:=1 to n do
begin
b[i]:=getsum(i);
write(b[i]:4);
end;
end.