дана квадратная матрица 4х4,нужно найти 1,2,3,4 части (как я понял,сумму индексов каждой части)
Answers & Comments
DmitryINF
//Сумма столбиков матрицы 4х4 var mas:array[1..4,1..4] of integer; sum:array[1..4] of integer; j,i:integer; begin for i:=1 to 4 do sum[i]:=0; for j:=1 to 4 do for i:=1 to 4 do read(mas[j][i]); for j:=1 to 4 do for i:=1 to 4 do sum[i]:=sum[i]+mas[j][i]; for i:=1 to 4 do writeln('Сумма столбика ',i,'=',sum[i]); end.
Answers & Comments
var
mas:array[1..4,1..4] of integer;
sum:array[1..4] of integer;
j,i:integer;
begin
for i:=1 to 4 do
sum[i]:=0;
for j:=1 to 4 do
for i:=1 to 4 do
read(mas[j][i]);
for j:=1 to 4 do
for i:=1 to 4 do
sum[i]:=sum[i]+mas[j][i];
for i:=1 to 4 do
writeln('Сумма столбика ',i,'=',sum[i]);
end.