const
n = 5;
m = 6;
var
T: array[1..n, 1..m] of real;
sum: array[1..n] of real;
i, j, iMin, iMax: integer;
min, max: real;
begin
writeln('Filling the matrix:');
for i := 1 to n do
begin
sum[i] := 0;
for j := 1 to m do
begin
write('Enter element [', i, ', ', j, ']: ');
readln(T[i, j]);
sum[i] := sum[i] + T[i, j];
end;
end;
iMin := 1;
iMax := 1;
min := sum[1];
max := sum[1];
for i := 2 to n do
begin
if sum[i] < min then
begin
min := sum[i];
iMin := i;
end;
if sum[i] > max then
begin
max := sum[i];
iMax := i;
end;
end;
writeln;
writeln('Matrix:');
for i := 1 to n do
begin
for j := 1 to m do
write(T[i, j]:7:2);
writeln;
end;
writeln;
writeln('Row #', iMin, ' has minimal sum of elements: ', min:1:2);
writeln('Row #', iMax, ' has maximum sum of elements: ', max:1:2);
readln;
end.
|
