Матрица размерности

[Алексей679]

Вот собственно и текст задачи:

Дана вещественная матрица размерности n*m. Вывести номера столбцов, содержащих только отрицательные элементы.

Заранее спасибо всем кто поможет и напишет код. Мир не без добрых людей.

[Mad_Cat]

for j:=1 to m
begin k:=0;
For i:=1 to n do
if a[i,j]<0 then inc(k);
if k=n then Writeln(j);
end;

[Алексей679]

Спасибо большое, очень тебе благодарен. Ты просто не представляешь как ты мне помог. Как я и говорил, мир не без добрых людей. Спасибо тебе еще раз.