1. F14 + G7.
2. B13 - 25.
3. $E7 + D$5.
4. D5 + $G$8.
5. C4 = $A$4 + 100 = 103.
Серые, блеклые, не нажимаются, тёмные
//Pascal ABC.NET v3.1 сборка 1219
Var
n,k1,k2,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
if r>0 then k1:=k1+1;
if r<0 then k2:=k2+1;
end;
writeln('Положительные:',k1);
writeln('Отрицательные:',k2);
end.
Пример ввода:
4
-1.1
2
3
0
Пример вывода:
Положительные:2
Отрицательные:1