Программа на Паскаль, которая выводит случайные слова из текста (строки). Пояснительных комментариев к строкам нет, но в случае чего я отвечу на вопросы в комментариях.
Исходный код программы:
const
znaki = ['.',',','!','?','-',':',';',' '];
Nmax=10000;
Type TArray=array[1..NMax] of string;
Var
S, S2, S3 : string;
i,k,j: integer;
a:TArray;
begin
readln(S);
S2 := '';
S:=S+' ';
k := 0;
For i:=1 to length (S) do begin
if (not(s[i] in znaki)) then begin
S2:= S2 + S[i];
end;
if S[i] in znaki then
if S2<>'' then begin
k:=k+1;
a[k]:=S2;
S2:='';
j:=j+1;
end;
end;
for i:=1 to j do begin
k:=random (i)+1;
write(a[k], ' ');
end;
end.Скачать исходник: pas10zed.pas