Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными, приведенными в таблице написать программу на языке Pascal.

Количество строк n=50
Количество столбцов m=20
Результат – одномерный массив

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

Решение

var A:array [1..50,1..20] of integer;
    Sum:array [1..50] of integer;
    i,j:integer;
    s:integer;
begin
writeln;
writeln('Vvedite elementy massiva:');
for i:=1 to 50 do
for j:=1 to 20 do
read(A[i,j]);

for i:=1 to 50 do begin
s:=0;
for j:=1 to 20 do
if A[i,j]<0 then s:=s+A[i,j];
Sum[i]:=s;
end;
writeln;
for i:=1 to 50 do
writeln(sum[i]);
readln;
end.