for i:=1 to n do begin
for j:=1 to m do sum:= sum +A[i,j]
end
Сумма элементов матрицы
Доброго всем времени суток! Есть у мя задачка практически полностью решённая, но вот не могу доделать... В общем так, есть некоторый 2-х мерный массив (матрица) и нужно вычислить сумму всех элементов строк матрицы. Я нахожу только сумму 1 строки. Подскажите цикл, который будет считать все строки. Мой код:
for j:=1 to m do
sum:= sum + A[1,j];
for j:=1 to m do
sum:= sum + A[1,j];
Цитата:
for j:=1 to m do
sum:= sum + A[1,j];
sum:= sum + A[1,j];
Вобщем нужно сосчитать все элементы в матрице так? Если так то нужно добавить еще один цикл for:
Код:
P.S. Я правильно тебя понял?
нет. не правильно. Нужно посчитать элементы каждой строки отдельно
Ах вот оно что!!!:) Может завести новый одномерный массив, который будет хранить эти суммы?
Код:
for i:=1 to n do begin
for j:=1 to m do sum:= sum +A[i,j];
B:=sum
end
for j:=1 to m do sum:= sum +A[i,j];
B:=sum
end
На меня нашло прозрение :D и вот он ПРАВИЛЬНЫЙ кусок кода:
for i:=1 to n do Begin
for j:=1 to m do
sum:=sum + A[i,j];
B:=sum;
writeln(B);
sum:=0;
end;
И таки работает... :) :cool:
for i:=1 to n do Begin
for j:=1 to m do
sum:=sum + A[i,j];
B:=sum;
writeln(B);
sum:=0;
end;
И таки работает... :) :cool:
если тебе надо расспечатать сумму каждой строки матрицы, тогда тебе не нужен никакой вспомагательный массив. убери B:=sum;
а в остальном - Эврика!
а в остальном - Эврика!