Процедуры. Вычислить сумму элементов второго столбца матрицы

@thor773 · Регистрация: 26.12.2011

Author24 — интернет-сервис помощи студентам

// условие Вычислить сумму элементов второго столбца матрицы 5x5//

Pascal

program MatrixSum;
var Matrix:array[1..5, 1..5] of integer;
  i,j,sum:integer;
begin
writeln('Размеры матрицы 5х5');
for i:=1 to 5 do begin
for j:=1 to 5 do matrix[i,j]:=random(9);
end;
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do write(matrix[i,j], ' ');
end;
writeln;
sum:=0;
for i:=1 to 5 do
for j:=1 to 5 do if (j=2) then sum:=sum+matrix[i,j];
writeln('Сумма второго столбца матрицы: ',sum)
end.

@3a9Ic · 10.04.2012, 23:18

Сделать процедуру? По готовому коду? Хм, а в чем проблемы.

Pascal

Procedure Summ;
begin
sum:=0;
for i:=1 to 5 do
for j:=1 to 5 do if (j=2) then sum:=sum+matrix[i,j];
writeln('Сумма второго столбца матрицы: ',sum)
end;

Не знаю, что тут ещё вогнать в процедуру. И будет это выглядеть.

Pascal

program MatrixSum;
var Matrix:array[1..5, 1..5] of integer;
i,j,sum:integer;
Procedure Summ;
begin
sum:=0;
for i:=1 to 5 do
for j:=1 to 5 do if (j=2) then sum:=sum+matrix[i,j];
writeln('Сумма второго столбца матрицы: ',sum)
end;
begin
       writeln('Размеры матрицы 5х5');
       for i:=1 to 5 do begin
       for j:=1 to 5 do matrix[i,j]:=random(9);
       end;
       for i:=1 to 5 do begin
       writeln;
       for j:=1 to 5 do write(matrix[i,j], ' ');
       end;
       writeln;
       Summ;
end.

	10.04.2012, 23:18