Просуммировать элементы столбцов заданной матрицы размером 4*3. Результат получить в однородном массиве размером 3. (можно с подробным решением? добавить методические укащания к заданию?)

const nn=5;

var

a: array[1 ... nn, 1 ... 5] of integer;

b: array [1 ... nn] of integer;

i, j:integer;

begin

for i: = 1 to 4 do / / Ввод первоначального массива

for j: = 1 to 3 do / / (сначала вводятся строки, затем

readln (a[i, j]) ; / / столбцы}

writeln; / / Просто пропуск строки для того, что бы результат не сливался.

for i: = 1 to 4 do / / Печать введенного массива

begin / / (не обязятельна, служит лишь для лучшей проверки)

for j: = 1 to 3 do

write (a[i, j]:4) ;

writeln;

end;

writeln;

for j: = 1 to 3 do b[j]:=0; / / Зануление второго массива.

for j: = 1 to 3 do / / Проход по начальному массиву наоборот,

for i: = 1 to 4 do / / сначала по столбцам, затем по строкам.

b[j]:=b[j]+a[i, j]; / / Во второй массив записывается сумма элем. столбоцв

for j: = 1 to 3 do write (b[j],' ') ;

end.