ZONDO

помогите решить задачу, заранее спасибо

Qiker

ZONDO, полностью не знаю как решить задачу,то есть я не знаю как сделать, чтобы программа считала сумму столбца только тогда, когда в нем нет отрицательных элементов. Но знаю, как найти сумму каждого столбца. Вдруг это натолкнет на мысль кого-то другого.

Program N1;
uses Crt;
var
a: Array[1..10, 1..10] of Integer;
t,s,I, J: integer;
begin
ClrScr;
For I := 1 to 10 do begin
For J := 1 to 10 do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to 10 do
begin
s:=0;
for i:=1 to 10 do
s:=s+a[i,j];
writeln('SUMMA RAWNA = ',s);
end;
readln;

end.