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

Question

Светлан

30 октября, 15:47

+1

Ответы (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) ;