- Подробности
- Автор: Super User
- Категория: Паскаль
- Просмотров: 11065
Задана матрица А(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.
Количество строк 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.