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

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