Немного не понял, что именно нужно:
| Код |
uses CRT; { библиотека для очистки экрана }
const count = 4;
var text: array[1..count] of string;
i: integer;
{--------------------------------------------------------------}
begin
clrscr; { очистка экрана }
for i:=1 to count do begin
write('Enter text(',i,'): '); readln(text[i]);
end;
{ запись строк }
for i:=1 to count do
if Length(text[i])>8 then writeln(text[i]);
{ поиск "больших" слов }
end.
|
или так (поиск в каждом массиве):
| Код |
uses CRT; { библиотека для очистки экрана }
const count = 4;
var text: array[1..count] of string;
Last,i: integer;
{--------------------------------------------------------------}
begin
clrscr; { очистка экрана }
for i:=1 to count do begin
Last:=0;text[i]:='123456 12345678 1234 123456789';
{ вводим текст любым способом }
text[i]:=text[i] + chr(32);
{ добавляем к строке пробел }
writeln; writeln('Исходный текст (строка номер ',i,'): ',text[i]); writeln;
writeln(' - слова, в которых букв больше 8:'); writeln;
{ выводим сообщение о наших действиях }
while Last <> Length(text[i]) do begin { до тех пор, пока позиция не равна количеству символов }
if ( Pos(chr(32), Copy(text[i],Last+1,Length(text[i])))-1>8 ) then
writeln(Copy(text[i],Last+1,Pos(chr(32), Copy(text[i],Last+1,Length(text[i])))));
Last:=Last+Pos(chr(32), Copy(text[i],Last+1,Length(text[i])));
end;
{ ищем слова, в которых букв больше 8 и выводим их на экран }
end;
end.
|
|
