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

Question

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

Answer 1

Var
a,b,c:integer;
max,min,i:real;
begin
max:=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;<br>if b>0 then max:=max+1;
if b<0 then min:=min+1;<br>if c>0 then max:=max+1;
if c<0 then min:=min+1; <br>writeln;
writeln ('Количество положительных --> ',max);
writeln ('Количество отрицательных --> ',min);
end.

Comments

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

---

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

---

Пожалуйста