//4.85
var
dg: array[1..5,1..3] of real;
sum: real;
i, j: integer;
const
m = 5;
n = 3;
begin
writeln('Vvedite matricu 5x3:');
for i := 1 to 3 do
for j := 1 to 5 do
read (dg[j,i]);
for i := 1 to 5 do
begin
for j := 1 to 3 do
if dg[i,j]<0 then
sum := sum + dg[i,j];
if sum = 0 then
writeln(i, ' stolbec ne imeet otricatelnih elementov!')
else
writeln('Summa otricatelnih elementov ',i, ' stolbca: ', sum);
sum := 0;
end;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎