двумерный массив

[caught.let]

написать программу определяющую кол-во нулевых элементов в массиве и заменить их на среднее арифметическое всех элементов массива

[weech]

for i:=1 to n do
   s:=s+a[i];
for i:=1 to n do
   if a[i]=0 then
       a[i]:=s/n;

[Ev[G]eN]

const
  n = 5;
var
  Matr: array[1..n, 1..n] of Integer;
  Summa: Longint;
  Count: Integer;
  i, j: Byte;
begin
  Randomize;
  Summa:=0; Count:=0;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(5);
      write(Matr[i, j]:4);
      inc(Summa, Matr[i, j]);
    end;
    writeln;
  end;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if Matr[i, j] = 0 then 
      begin
        Matr[i, j]:=Summa div sqr(n);
        inc(Count);
      end;
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln('Кол-во нулевых в исходной матрице: ', Count);
end.