Написать программку, которая во введённой с клавиатуры строке сменяет все маленькие

Написать программку, которая во введённой с клавиатуры строке заменяет все махонькие гласные латинские буковкы на великие. pascal Пожалуйста можно без массивов.

Задать свой вопрос
2 ответа
//PascalABC.NET
var
  s: string;
  i: byte;
  vowels: string = 'aeiouy';
begin
  write('Строчка = ');
  readln(s);
  for i := 1 to length(s) do
    if pos(s[i], vowels) lt;gt; 0 then s[i] := s[i].ToUpper;
  writeln('После замены = ', s);
end.
Анжелика Ахремцова
а можно как-то без [ ]?
Вот, вроде так должно получится)
Кирвалидзе Николай
А без массивов можно?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт