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; 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.
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;
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.