program Project4; {$APPTYPE CONSOLE} uses SysUtils, math;

const
max=30;
type
tmas=array [1..max] of string ;
tzn= array [1..max] of integer;
tst=string ;
var
str,min:tst;
mas:tmas ; kol:tzn;


// удаление лишних пробелов
procedure del(var stx:tst );
var ix:integer;
begin
for ix:= 1 to length(stx) do
begin
pos(' ',stx);
if pos(' ',stx)= 1 then delete(stx,1,1);
end;
for ix:= 1 to length(stx)do
if stx[ix]=' ' then while stx[ix+1]=' ' do delete(stx,ix+1,1);
end;



procedure obrab(var stx:tst; out masx:tmas; out kolx:tzn ; out min1:tst);
var j,kx,i,kx1,tx,nx,x,buf,minx:integer; sx,slovo,buf1:tst;
begin
nx:=length(stx);
slovo:=' ';
if stx[nx]<>' ' then stx:=stx+' ';
kx:=0; //количество слов
j:=1;
for i:= 1 to length(stx) do
begin
if stx[i]<>' ' then slovo:=slovo+ stx[i]
else begin
kx:=kx+1;
masx[j]:=slovo; //массив слов
slovo:=' ';
j:=j+1;
end;
end;

writeln('исходный массив слов:');
writeln;

for j := 1 to kx do write(masx[j]:5,' ':1);
writeln;

// кол-во гласных
for i:=1 to kx do kolx[i]:=0;
kx1:=0; i:=1;
for j:= 1 to kx do
begin sx:=masx[j];
for tx:=1 to length(sx) do
if sx[tx] in ['u','o','e','a','i','y']
then kx1:=kx1+1; //счетчик гласных в каждом слове
kolx[i]:=kx1; //writeln(kx1:4);
kx1:=0;
i:=i+1;
end;
x:=0;
for i:=1 to kx do if kol[i]<>0 then x:=x+1;
if x<>0 then begin

// сортировка
j:=1;

for i:=1 to kx-1 do
for j:=1 to kx-1 do
if kolx[j+1] begin
buf:=kolx[j];
kolx[j]:=kolx[j+1];
kolx[j+1]:=buf;
buf1:=masx[j];
masx[j]:=masx[j+1];
masx[j+1]:=buf1;
end;
writeln;
writeln ('преобразованный массив слов:');
writeln;
for j:= 1 to kx do write( masx[j],' ':2);
writeln;
writeln;

for i:=1 to kx do
if kol[i]<>0 then
begin
x:=i;
break;
end;
for j:= 1 to kx do min1:=masx[x];
write('слово с наим кол глас:', ' ':1,min1);
end
else begin writeln ;writeln ('гласных нет!');end; end;
begin


writeln('введите строку');
writeln;
readln(str);
writeln;
writeln('строка без лишних пробелов:');
del(str);
Writeln(str);

obrab(str,mas,kol,min);




readln;
readln;


end.

Случайные файлы

Файл
vesel.txt
referat.txt
descript.ion.txt
README.TXT
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.