определить количество отрицательных элементов в обеих диагоналях матрицы (на паскале)

[borsk]

Составить программу определения количества отрицательных элементов в обеих диагоналях матрицы.Пример:

1.8 -8.8 0.0 6.5
6.3 -7.1 0.0 3.6
0.9 -6.8 0.0 1.9
1.8 -8.8 0.0 6.5

[Pein95]

а вы хоть чтото сделали?

[borsk]

нет, мне бы только обработку и вывод=)

[p51x]

вывод? О_О

writeln(kolvo);

[hannan]

for i:=1 to n do 
 if masssiv[i,i]<0 then inc(kolvo);
for i:=n downto 1 do
  for j:=1 to n do
    if massiv[i,j]<0 then inc(kolvo);

[borsk]

благодарю=)))

[Mad_Cat]

благодарю=)))

интересно за что))
первая часть верная, а - вторая ни разу)

for i:=1 to n do
 if massiv[i,n-i+1]<0 then inc(kolvo);