составить программу для посчёта количества неотрицательных среди чисел a.b.c.)помогите пожалуйста срочно надо,,,*

так как у тебя всего три переменных то я не стал использовать цикл, а так можно было бы вычислить положительные и отрицательные элементы из цикла

спасибо огромное очень помогло)

Пожалуйста

vara,b,c:integer;max,min,i:real;beginmax:=0;min:=0; writeln ('A --> ');readln (a);writeln ('B --> ');readln (b);writeln ('C --> ');readln (c);if a>0 then max:=max+1;if a<0 then min:=min+1;if b>0 then max:=max+1;if b<0 then min:=min+1;if c>0 then max:=max+1;if c<0 then min:=min+1; writeln;writeln ('Количество положительных --> ',max);writeln ('Количество отрицательных --> ',min);end.