Даны два двумерных массива, в том из них, где среднее арифметическое элементов главной диагонали больше - Turbo Pascal - Ответ 2855640

unit unit1;
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
var m:byte;
procedure Vvod(var a:matr;c:char);
function Sred(a:matr):real;
procedure Vyvod(a:matr;c:char);
implementation
procedure Vvod(var a:matr;c:char);
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
 
function Sred(a:matr):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to m do
s:=s+a[i,i];
Sred:=s/m;
end;
 
procedure Vyvod(a:matr;c:char);
var i,j,k:byte;
begin
writeln('Матрица ',c);
k:=1;
for i:=1 to m do
if a[i,i]>a[k,k] then k:=i;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if(i=k)and(j=k) then textcolor(12)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
end;
end.