Дан массив целых чисел A[1..8]. Найти количество отрицательных элементов массива. (Без структуры "Inc").

А это у Вас что такое? c=c+i×i;

I умножить на I

Спасибо, я это понял))) Я не понял, какое отношение c=c+i*i имеет к подсчету количества отрицательных элементов в массиве.

1 c:=0for i:=1 to 8 do beginif a [i]<0 then inc (c);end;writeln (c);2  c:=0for i:=1 to 8 do beginc=c+i×i;end;writeln (c);