Объяснение:
var i,n,kp,km:integer; a:char;
begin
kp:=0; km:=0;
readln(n);
for i:=1 to n do
readln(a);
if a='+' then:=kp+1;
if a='-' then km:=km+1;
end;
writeln(kp,' ',km);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Складіть програму, яка буде рахувати кількість введених з клавіатури речень
Объяснение:
var i,n,kp,km:integer; a:char;
begin
kp:=0; km:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if a='+' then:=kp+1;
if a='-' then km:=km+1;
end;
writeln(kp,' ',km);
end.