из 10 вводимых чисел найти количество отрицательных

program zz1;

var i, s, n:integer; / / задаем переменные целого типа

begin

for i:=1 to 10 do / / организуем цикл на десять повторений

begin

read (n); / / вводим очередное число

if n < 0 then s:=s + 1; / / проверяем условие, если введенное число отрицательное, то считаем его

end;

writeln (' количество отрицательных чисел среди введенных = ', s); / / выводим ответ

end.