Найти сумму элементов каждого столбца матрицы

[FYNZIK]

Найти сумму элементов каждого столбца матрицы, напишите пожалуйста комментарии

[Stilet]

показать код ввода матрицы сможешь?

[Arigato]

Столбец матрицы по сути одномерный массив. Находить сумму одномерного массива вас научили в соседней теме. Дальше самостоятельно.

[FYNZIK]

program matr1;
uses WinCrt;
const
n=4;
var
i,j: Integer;
A:  array[1..n,1..n] of real;
begin
for i:=1 to n do
begin
 for j:=1 to n do
 read(a[i,j]);
 readln;
end;
for i:=1 to n do
begin
if a[i,i]<>0 then begin
 for j:=1 to n do
 a[i,j]:=a[i,j]/a[i,i];
 end;
 end;
for i:=1 to n do
begin
 for j:=1 to n do
 write(a[i,j]);
 writeln;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.