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

[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 0:39

[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;

не проще?