Паскаль, задача с матрицей

[Madara]

Паскаль, задача с матрицей

Здравствуйте.
Нужна маленькая помощь...

Задание:
Если среднее арифметическое матрицы А положительно, задать элементам С1, С2,...,С значения тех элементов матрицы А, которое больше среднего арифметического этой матрицы.

Вот я написал код:

Program MatrToMass;
Const n=3;
Var
 j,i:integer;
 A:array[1..n] of array[1..n] of real;
 S,K:real;
 C:array[1..n*n] of real;
Begin
  S:=0;
  for i:=1 to n do
  for j:=1 to n do
    Begin 
     Write('A[',i,',',j,']=');
     Readln(A[i,j]);
     S:=S+A[i,j];
    end; 
  K:=S/sqr(N);
  if K>0 then
   Begin
    for i:=1 to n do
    for j:=1 to n do
      Begin
        if A[i,j]>k then C[i]:=A[i,j];
        end;
      Writeln('Среднее арифметическое матрицы А = ',K:0:1);  
      Write('Полученный массив C = ');
      for i:=1 to n*n do
       Begin
        if C[i]<>0  then
        Write(C[i],' ');
       end;   
   end;
END.

Если например ввести матрицу А:
|4 6 20|
|1 5 0|
|30 6 1|
То все вроде верно, выдаёт
Среднее арифметическое матрицы А = 8.1
Полученный массив C = 20 30

Но если например ввести матрицу А:
|25 24 25|
|25 25 25|
|25 25 25|
То по должно выдать С= 25 25 25 25 25 25 25 25 (8 раз)
Но выдаёт
Среднее арифметическое матрицы А = 24.9
Полученный массив C = 25 25 25 (3 раза)

На самом деле я не уверен что это верно, т.к. вывожу я не совсем массив, как сказано в задании...

Но если написать так:

Program g_2_5_3_6;
Const n=3;
Var
 j,i:integer;
 A:array[1..n,1..n] of real;
 S,K:real;
 C:array[1..n*n] of real;
Begin
  S:=0;
  for i:=1 to n do
  for j:=1 to n do
    Begin
      Write('a[',i,',',j,']=');
      readln(A[i,j]);
      S:=S+A[i,j];
    end;
  K:=S/sqr(n);
  for i:=1 to n do
  for j:=1 to n do
     Begin
      if A[i,j]>K then C[i]:=A[i,j];
      write(C[i], ' ');
     end;
END.

То вообще не понятно чего выводит

Прошу вас помочь мне разобраться с этой проблемой.

 

[Vladimir_S]

Прошу вас помочь мне разобраться с этой проблемой.

Легко.
1. Вводим еще одну переменную формата Integer, напр. q.
2. Вместо

  for i:=1 to n do
   for j:=1 to n do
    begin
     if A[i,j]>K then C[i]:=A[i,j];
     write(C[i], ' ');
    end;

пишем

  q:=0;  
  for i:=1 to n do
   for j:=1 to n do
    if A[i,j]>K then 
     begin
      q:=q+1;
      C[q]:=A[i,j];
      write(C[q], ' ');
     end;