Главное меню

Вход на сайт

Кто на сайте?

Сейчас один гость и ни одного зарегистрированного пользователя на сайте

Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными, приведенными в таблице написать программу на языке Pascal.
Количество строк n=15
Количество столбцов m=10
Результат – одномерный массив
Найти сумму элементов в каждом столбце матрицы отдельно.

Решение

const n=15;
      m=10;
var A:array [1..n,1..m] of integer;
    Rez:array[1..n] of integer;
    i,j,s:integer;
begin
writeln;
writeln('Vvedite elementy massiva:');
for i:=1 to n do
for j:=1 to m do
read(A[i,j]);
for j:=1 to m do begin
s:=0;
for i:=1 to n do
    S:=s+a[i,j];
rez[j]:=s;
end;
writeln('Summy elementov stolbtsov:');
for j:=1 to m do
write(Rez[j],' ');
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте