Developing.ru

ваш код

[b]andryuha[/b], вставляя код обрамляйте его тэгом так:
[noparse]
[code]
ваш код
[/code]

либо

[syntax='delphi']
ваш код
[/syntax]
[/noparse]

Я бы сделал так: сделал массив array['А'..'Я'] of integer, потом в каждом слове удалить повторяющиеся буквы, а для остальных букв увеличить соответствующий элемент массива на 1. Потом в массиве посмотреть, есть ли элементы не меньше 3, если есть - их индексы и будут являться искомыми буквами.

блин все никак не могу понять как одну задачку решить вот она:
Написать программу на обработку одномерного массива. Дана непустая последовательность слов из строчных букв (количество слов > 3): между соседними словами - запятая, за последним словом - точка. Вывести все буквы, которые входят не менее чем в три слова последовательно-сти.
как только я ее не пытался решить! ну не как не получаеться.на слова делил а да дальше что как поиск осуществить?как решить?
вот что у меня получилось:
program lab_5.1;

{$APPTYPE CONSOLE}
uses
SysUtils;
var
str:string[255];
s1,s2,s3:string[40];
i,j,p:integer;

begin
str:='Omnia mea mecum.';
j:=0;
for i:=1 to length(str) do
begin
if (j=0) then
begin
j:=j+1;
p:=pos(' ',str);
s1:=Copy(str,i,p);
delete (str,i,p);
Write(s1);
end;
readln;
if (j=1) then
begin
j:=j+1;
p:=pos(' ',str);
s2:=Copy(str,i,p);
delete (str,i,p);
Write(s2);
end;
readln;
if (j=2) then
begin
j:=j+1;
p:=pos('.',str);
s3:=Copy(str,i,p);
delete (str,i,p);
Write(s3);
end;
end;

for i:=1 to 10 do
begin
if s1[i]=s2[i] then write (Copy(s1,i,1);
readln;
end;
end.

помогите или хотябы подскажите как решить