Определить сумму элементов в строках содержащих отрицательные элементы

[Volk_xD]

Определить сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.

Var sum:integer; i,j:Byte;
Begin
for i:=1 to row do begin
sum:=0;
for j:=1 to col do
if x[i,j]<0 then
sum:=sum+x[i,j];
writeln('Summa ',i,'-i stroki=',sum:4);
end;
end;

Как сделать так, что б в тех строках, где отрицательного элемента нет, сумма вообще не выводилась?

[Базиля]

можно так

for i:=1 to row do begin
sum:=0;
for j:=1 to col do
if x[i,j]<0 then
begin
sum:=sum+x[i,j];
inc(n);
end;
if n<>0 then
begin
writeln('Summa ',i,'-i stroki=',sum:4);
n:=0;
end;
end;

еще можешь добавить такой вывод что в массиве вообще не строк с отриц. элементами т.о.:

for i:=1 to row do begin
sum:=0;
for j:=1 to col do
if x[i,j]<0 then
begin
sum:=sum+x[i,j];
inc(n);
end;
if n<>0 then
begin
writeln('Summa ',i,'-i stroki=',sum:4);
inc(k);
n:=0;
end;
end;
if k=0 then writeln('в массиве нет строк с отриц. элементами');

[Volk_xD]

Большое спасибо

[Volk_xD]

Ещё такой вопрос. А как сделать, чтобы считалась сумма всех элементов той строки, а не только отрицательных?

[Базиля]

Если я тебя правльно понял то ты хочешь чтобы считало сумму всех строк. Тогда убираешь свое условие из цикла.

for i:=1 to row do 
begin
sum:=0;
for j:=1 to col do
sum:=sum+x[i,j];
writeln('Summa ',i,'-i stroki=',sum:4);
end;

[Volk_xD]

Нет, хочу, что б считало сумму строк, в которых встречаются отрицательные элементы. Но нужно, что б считалась сумма не только отрицательных, а ВСЕХ элементов этой строки.

[man-utd-]

А если допустим требуется найти сумму всех элементов в строках,в которых есть отрицательный элемент,находящийся на главной диагонали. Это надо добавить в условии???

for i:=1 to row do begin
sum:=0;
for j:=1 to col do
if (i=j) and x[i,j]<0 then
begin
sum:=sum+x[i,j];
inc(n);
end;
if n<>0 then
begin
writeln('Summa ',i,'-i stroki=',sum:4);
n:=0;
end;
end;

[Volk_xD]

Программа, к исходной задаче, почти правильная, но считает сумму НЕ всех элементов строки, а только отрицательных. Помогите подправить код пожалуйста)

Program Summ;
Uses Crt;
Type TArray=Array[1..10,1..10] of integer;
Var a, b:TArray; n,m,k,l :Byte;
Procedure InMatr2(Var x:TArray; row,col:Byte);
Var i,j:Byte;
Begin
Randomize;
For i:=1 to row do Begin
For j:=1 to col do Begin
x[i,j]:=-10+random(90);
Write(x[i,j]:7,' ');
End;
Writeln;
End;
End;
Procedure Summa(x:TArray; row,col:Byte);
Var sum,n:integer; i,j:Byte;
Begin
for i:=1 to row do begin
sum:=0;
for j:=1 to col do
if x[i,j]<0 then
begin
sum:=sum+x[i,j];
inc(n);
end;
if n<>0 then
begin
writeln('Summa ',i,'-i stroki=',sum:4);
inc(k);
n:=0;
end;
end;
if k=0 then writeln('Net strok s otricatelnumi elementami');
End;
BEGIN
Clrscr;
Writeln('Vveite razmernost matrici (menee 10*10) ');
Readln(n,m);
InMatr2(a,n,m);
Writeln;
Summa(a,n,m);
Readkey;
End.