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

Вопрос от пользователя: Катена

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

Использовать цикл с предусловием.

На обычном паскале, не турбо.

Ответ: Любава

Program z1;

var s:integer; a:double;

begin

s:=0; a:=1;

while a0 do begin

readln (a);

if a