Составить программу, которая запрашивает числа и считает количество введенных отрицательных чисел, до тех пор, пока пользователь не введет 0. Использовать цикл с предусловием. На обычном паскале, не турбо.
Ответ
Автор - lNT64
program z1; var s:integer;a:double; begin s:=0;a:=1; while a<>0 do begin readln(a); if a<0 then s:=s+1 end; writeln(s); readln end.