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

Составить программку, которая запрашивает числа и считает количество введенных отрицательных чисел, до тех пор, пока юзер не введет 0.
Использовать цикл с предусловием.
На обыкновенном паскале, не турбо.

Задать свой вопрос
1 ответ
Program z1;
var s:integer;a:double;
begin
        s:=0;a:=1;
        while alt;gt;0 do begin
                readln(a);
                if alt;0 then s:=s+1
        end;
        writeln(s);
        readln
end.

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


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

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

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

Войти на сайт