Матрица Опции

[JoB]

Не могу понять что не так(вероятно уже время такое=):
найти сумму средних арефметических значений строк матрици размером м на н

Код

const n=2;m=2;
var a:array[1..n,1..m] of integer;
i,j,max:integer;
sum:extended;
begin
  sum:=0;
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do begin
begin
sum:=sum+a[i,j];
if j=m then
sum:=sum/m;
writeln(sum:4:2);
end;
end;
readln
end.

Сообщение отредактировано: JoB - 21.04.2006 4:39

[Bokul]

Код

const n=2;m=2;
var a:array[1..n,1..m] of integer;
i,j,max:integer;
sum,result:real;
begin
sum:=0;
result:=0;
for i:=1 to n do
for j:=1 to m do
     begin
            write('a[',i,',',j,']=');
            readln(a[i,j]);
     end;
for i:=1 to n do
for j:=1 to m do
     begin
            sum:=sum+a[i,j];
            if j=m then
                      begin    
                              result:=result+sum/m;
                              sum:=0;
                      end;
    end;
writeln(result:4:2);
readln;
end.

Сообщение отредактировано: Bokul - 21.04.2006 6:14