Двумерные маcсивы(дороботка).

[xxxPascalxxx]

Буду благодарен за помощь в решенни такой задачи:
Дан массив A[1..N,1..M]. Найти номер столбца, для которого
среднеарифметическое значение его элементов: a) максимально;
b)минимально.




const n=3;
m=3;
var a:array [1..n,1..m] of integer;
b:array [1..m] of real;
i,j:integer;
c:real;
begin
writeln('vvedite elementy massiva');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for j:=1 to m do
for i:=1 to n do
begin
b[j]:=(b[j]+a[i,j]);
end;
for j:=1 to m do
begin
b[j]:=b[j]/m;
end;

for j:=2 to m do
if b[j]>b[1] then c:=j;
writeln('maksimalno ',c:0:0);

for j:=2 to m do
if b[j]<b[1] then c:=j;
writeln('minimalno ',c:0:0);

for j:=1 to m do
writeln ('summa ',b[j]);
readln;
end.


Программа не выводит номер столбца среднее арифметическое которого
максимально и минимально.
Заранее спасибо.

[Jeni]

Ответил на такую-же тему в ветке "Помощь студентам"

[Квэнди]

предупреждение.
закрыто