К задаче 2,только нет исключения для одинаковых наибольших элементов матрицы.
Код
Program matr;
uses crt;
const N=5;M=5;
var mas:array[1..N,1..M] of integer;
a,b,c,d,e,x,z:integer;
y:real;
begin
randomize;
clrscr;
for a:=1 to n do
for b:=1 to m do
begin
mas[a,b]:=random(20);
end;
for a:=1 to n do
begin
for b:=1 to m do
begin
write(mas[a,b],' ');
end;
writeln;
end;
c:=mas[1,1];
for a:=1 to n do
for b:=1 to m do
begin
if c<mas[a,b] then c:=mas[a,b];
end;
for a:=1 to n do
for b:=1 to m do
begin
if c=mas[a,b] then begin
d:=b;
e:=a;
end;
end;
for a:=1 to n do
for b:=d+1 to m do
begin
x:=x+mas[a,b];
end;
for a:=e+1 to n do
z:=0;
for b:=1 to m do
begin
y:=y+mas[a,b];
z:=z+1;
end;
y:=y/z;
writeln('Сумма-',x);
writeln('Среднее арифметическое-',y:3:3);
readln;
end.