Найти среднее арифметическое тех элементов матрицы

[Over77over]

Найти среднее арифметическое тех элементов матрицы

Помогите пожалуйста решить задачу.

Найти среднее арифметическое тех элементов матрицы, каждый из которых больше находящегося с ним в одной строке элемента главной диагонали, и сумму элементов главной диагонали.

Нужно перевести эту программу из Фортрана в Паскаль:

dimension A(4,4)
real sa,sk,s,a
integer i,j,k
write(*,*)'vvesti matrizy'
read(*,*)((A(i,j),i=1,4),j=1,4)
k=0
s=0
do i=1,4,1
s=s+a(i,i)
do j=1,4,1
if (A(i,j)>A(i,i)) then
k=k+1
sk=sk+a(i,j)
end if
end do
end do
sa=sk/k
write(*,26)s
26 format(3x,'Symma elementov diagonali',1x,(6x,4(F4.1,1x)))
write(*,31)sa
31 format(3x,'srednee arifmeticheskoe elementov',1x,(6x,4(F4.1,1x)))
end

 

[Vladimir_S]

Вот:

Const
 N=5;

Var
 A:Array[1..N, 1..N] of Integer;
 i,j,k,Sum:Integer;

Begin
 Randomize;
 Sum:=0;
 k:=0;
 Writeln('Matrix:');
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:4);
    end;
   writeln;
  end;
 writeln;

 for i:=1 to N do Inc(Sum,A[i,i]);
 Writeln('Sum of main diagonal elements is ',Sum);
 writeln;

 Sum:=0;
 for i:=1 to N do
  for j:=1 to N do
   if A[i,j]>A[i,i] then
    begin
     Inc(k);
     Inc(Sum,A[i,j]);
    end;

 if k>0 then
  writeln('Arithmetic mean is ', Sum/k:0:3)
 else
  writeln('No elements exceeding that of main diagonal in corresponding line!');

 Readln
End.

 

[Over77over]

Спасибо большое!