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

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

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

Yuliya12222222222    1   13.05.2020 22:52    0