Question

дано предложение-строка. подсчитать количество слов, начинающихся с буквы 'а' написать программу на паскале

Answer 1

var c,a,n,i:longint;

begin

read(n);

read(a);

c:=a;

for i:=2 to n do

begin

read(a);

c:=c+a;

end;

write(c);

end.    

Answer 2

Это что за, простите, фигня?