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

[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

[volvo]

Bokul,

for i:=1 to n do begin
  sum := 0;

  for j:=1 to m do sum:=sum+a[i,j];
  
  result:=result+sum/m;
end;

не проще?

[Lapp]

не проще?

volvo меня опередил (как обычно)
Но все же добавлю, типа совет на будущее: не надо использовать переменную с именем result. Назови res, что ли..

[Bokul]

Volvo,
да проще, просто я хотел как можно меньше изменять его код