Question

Допишите программу.

На вход подается количество элементов последовательности, затем сами элементы последовательности.  Элементы последовательности – это целые числа в диапазоне от -1000 до 1000. Определите, сколько среди них отрицательных элементов?

Вход

Выход

5

2

100

 

0

 

-250

 

-900

 

450

 

var i,n,a,k:integer;

begin

   read (n);

   k:=0;

   for i:=1 to n do begin

      read (a);

      if …… then k:=k+1;

   end;

   write (k);

end. 

Хелп, иначе меня загрызут :)
​

Answer 1

Ответ:

a < 0

Объяснение: