Question

Дана квадратная матрица 4х4,нужно найти 1,2,3,4 части (как я понял,сумму индексов каждой части)

Answer 1

//Сумма столбиков матрицы 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.