Составить программку для определения количества отрицательных чисел.Дано: n целых чисел х,

//Язык Pascal

Var

n, i, num, counter: integer;

Begin

Write('Введите n: ');

Readln(n);

for i := 1 to n do

begin

Write('Введите ', i, ' число: ');

Readln(num);

if (num lt; 0) then

counter := counter + 1;

end;

Writeln();

Writeln('Отрицательных чисел: ', counter);

End.