Массивы, Найти кол-ство отрицательных чисел и йх суму. Опции

[Desktop]

Суть задачи надо найти суму и количество элементов таблицы c[1..5,1..5] котрые находятся под главной диагональю. Пару вопросов:
Найти количесвто отрицательных элементов

Код

var
i,j,s,n:integer;
begin
n:=0;
for i:=1 to 5 do
for j:=1 to i do
begin
if c[i,j]<0 then
n:=n+1;
end;

но что то не считает...
Найти сумму всех элемнтов ниже главной диагонали я знаю

Код

begin
s:=0;
for i:=1 to 5 do
for j:=1 to i do
s:=s+c[i,j];
writeln('Summa=',s);
readln;
end;

а вот как найти отрицательные ?

[volvo]

но что то не считает...

А ты матрицу заполнил? Есть в ней отрицательные элементы?
Если есть - все должно работать...

Насчет суммы: то же самое:

for i:=1 to 5 do
  for j:=1 to i do
    if c[i, j] < 0 then s:=s+c[i,j];

[Desktop]

А ты матрицу заполнил? Есть в ней отрицательные элементы?
Если есть - все должно работать...

Насчет суммы: то же самое:

for i:=1 to 5 do
  for j:=1 to i do
    if c[i, j] < 0 then s:=s+c[i,j];

Возможно ошибка во вводе элементов ?

Код

const
c:array[1..5,1..5] of integer=((1,-3,5,7,-4),(-2,7,6,4,1),(4,8,3,-1,1),
(2,8,4,3,7),(-2,-8,6,1,4));

[Романтик]

а в консольном тестировать не пробовали?