Помощь - Поиск - Пользователи - Календарь
Полная версия: Матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
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.
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 @ 21.04.2006 7:52) *

не проще?

volvo меня опередил (как обычно) smile.gif
Но все же добавлю, типа совет на будущее: не надо использовать переменную с именем result. Назови res, что ли..
Bokul
Volvo,
да проще, просто я хотел как можно меньше изменять его код unsure.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.