Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечетное слово

@xkpukx · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

условие.
Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечетное слово и не входят хотя бы в одно четное слово.

Pascal

program poiskglyhih;
uses crt;
type gl= set of 'A'..'z';
var a:array[1..20]of string;
 
s,chet:string;
i,o:integer;
glyh:gl;
begin
clrscr;
writeln('vvedite slova cherez zapyatyy');
readln(s);
 
while (pos(',',s)>0) do
begin
i:=i+1;
a[i]:=copy(s,1,pos(',',s)-1);
 
delete(s,1,pos(',',s));
end;
a[i+1]:=copy(s,1,pos('.',s)-1);
 
chet:=a[2]+a[4]+a[6]+a[8]+a[10]+a[12];
 
writeln(chet);
 
glyh:=['k','K','p','P','T','t','S','s','F','f','H','h','C','c'];
 
for i:=1 to length(chet) do
 
begin
 
if not(chet[i] in glyh) then   write(chet[i]);
for i:=1 to length(s) do
begin
if ((a[1] in glyh)) and ((a[3] in glyh)) and ((a[5] in glyh)) and ((a[7] in glyh)) then
write(a[1],a[3],a[5],a[7]);
end;
end;
 
readln;
end.

во общем запар на 34 строчки и у меня два вопроса, первый почему на 33 строке все норм получилось а дальше ступор, и второй как избежать ввода a[1] и так далее.. ведь если у нас не будет к примеру a[7] условие не будет выполнятся а программа будет ее искать.
Ну и буду очень благодарен если подскажите что можно сократить в программе до норм ее вида.

@xkpukx · 08.01.2011, 22:56 **[ТС]**

вопросы остаются актуальными.. ап

@xkpukx 4 / 4 / 0 Регистрация: 12.12.2010 Сообщений: 184
	08.01.2011, 22:56 [ТС]	2
	вопросы остаются актуальными.. ап 0

Опции темы