Допишите программу.На вход подается количество элементов последовательности, затем сами элементы последовательности.  Элементы последовательности – это целые числа в диапазоне от -1000 до 1000. Определите, сколько среди них отрицательных элементов?ВходВыход52100 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. Хелп, иначе меня загрызут :) ​

Вопрос школьника по предмету Информатика

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

На вход подается количество элементов последовательности, затем сами элементы последовательности.  Элементы последовательности – это целые числа в диапазоне от -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. 

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

Ответ учителя по предмету Информатика

Ответ:

a < 0

Объяснение: