Тепер змінна x (яку забули обнулити перед підрахунками, тому в ній може лежати якесь сміття) обчислює суму ВСІХ елементів двовимірного масиву. Нам же треба вивести окремо суму для кожного рядка, а потім окремо суму для кожного стовпчика. Крім того, треба зробити цикл вводу елементів масиву (або присвоїти значення програмно).
1-й ядок двовимірного масива повинен містити елементи A1[1,1], A1[1,2],..., A1[1,m]
2-й рядок — елементи A1[2,1], A1[2,2],..., A1[2,m]
і т.д.
У випадку стовпчиків, змінюватиметься перший індекс, а другий лишатиметься постійним:
1-й стовпчик — елементи A1[1,1], A1[2,1],..., A1[n,1]
2-й стовпчик — елементи A1[1,2], A1[2,2],..., A1[n,2]
і т.д.
Тобто, для виводу сум рядків треба зробити цикл:
for i:=1 to n do begin
x:=0;
for j:=1 to m do
x:=x+A1[i,j];
writeln('Сума ', i, '-го рядка: ', x);
end;
Зі стовпчиками — аналонічно, але j буде змінюватись у зовнішньому циклі, i — у внутрішньому.