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

Question

Каллистрат

23 октября, 13:52

+3

Ответы (1)

Знаете ответ?

Макар · 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) ;