Question

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

Answer 1

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);

Answer 2

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

Answer 3

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

Answer 4

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