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