Цитата:
Сообщение от zaaag
правильно??
|
Не совсем.
1. В перечне множества Glas Вы поставили пробел после буквы "У" - абсолютно недопустимо и приводит к ошибке!
2. Неверно сформулированы условия цикла While...do.
3. В предпоследней строке условный оператор if a[j]<>'' then - лишний.
Вот подредактированный вариант:
Код:
uses crt;
const
glas=['а','е','и','о','у','э','ю','я','А','Е','И','О','У','Э','Ю','Я'];
var
s:string;
i,j:integer;
c:char;
a:array[1..100] of string;
begin
clrscr;
i:=0;
Writeln('Будете вводить данные (Y/N), (Д/Н)?');
readln(c);
While (c in ['Y','y','Д','д']) and (i<=100) do
begin
inc(i);
Writeln('Введите ',i,'-ю строку');
readln(s);
for j:=1 to length(s) do
if not(s[j] in glas) then a[i]:=a[i]+s[j];
Writeln('Вводить еще информацию (Y/N), (Д/Н)?');
readln(c);
end;
Writeln;
for j:=1 to i do Writeln(a[j]);
readln
end.