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

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

Задать свой вопрос
1 ответ

var n,k,i,a:longint;

begin

k:=0;

readln(n);

for i:=1 to n do begin readln(a); if(alt;0) then k:=k+1; end;

writeln(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт