Задан одномерный массив из N строк. Каждая строка является предложением из слов, разделенных пробелами. Найдите и выведите те предложения, в которых есть слова, начинающиеся на…

Для решения задачи, где необходимо найти и вывести предложения из одномерного массива строк, содержащие слова, начинающиеся на гласную букву, можно использовать язык программирования Pascal. Вот пошаговое объяснение решения:

1. Определить массив строк: Вам нужно создать массив, который будет хранить ваши строки.
2. Цикл по массиву: Пройтись по каждому предложению в массиве.
3. Проверка слов в предложении: Разделить каждое предложение на слова и проверить, начинается ли каждое слово с гласной буквы.
4. Вывести подходящие предложения: Если в предложении есть хотя бы одно слово, начинающееся на гласную, вывести это предложение.

Вот пример кода на языке Pascal, который выполняет вышеописанные шаги:

program FindSentencesWithVowelWords;
uses SysUtils;

const
  N = 5; // количество строк в массиве
var
  sentences: array[1..N] of string;
  i, j: Integer;
  words: TArray<string>;
  hasVowel: Boolean;
  
function StartsWithVowel(s: string): Boolean;
var
  firstChar: Char;
begin
  if Length(s) = 0 then
    Exit(False);
  firstChar := LowerCase(s[1])[1]; // Приводим к нижнему регистру
  Result := (firstChar = 'a') or (firstChar = 'e') or (firstChar = 'i') or
            (firstChar = 'o') or (firstChar = 'u');
end;

begin
  // Инициализация массива строк
  sentences[1] := 'Этот тест предназначен для проверки.';
  sentences[2] := 'У вас есть интересное предложение.';
  sentences[3] := 'Обучение важно для будущего.';
  sentences[4] := 'Проверка ведется по всем предложениям.';
  sentences[5] := 'Выводим строки с гласными.';

  // Поиск и вывод предложений с гласными
  for i := 1 to N do
  begin
    words := sentences[i].Split([' ']); // разделяем строку на слова
    hasVowel := False;

    for j := 0 to High(words) do
    begin
      if StartsWithVowel(words[j]) then
      begin
        hasVowel := True;
        Break; // Выход из внутреннего цикла, если слово с гласной найдено
      end;
    end;

    if hasVowel then
      WriteLn(sentences[i]); // Выводим предложение
  end;
end.

Объяснение кода:

• Мы создаем массив sentences, чтобы хранить предложения.
• Функция StartsWithVowel проверяет, начинается ли строка с гласной буквы.
• Внешний цикл проходит по каждому предложению, а внутренний цикл проверяет каждое слово.
• Если в предложении есть слово, начинающееся на гласную, оно выводится на экран.

Попробуйте запустить этот код, и он поможет вам найти все предложения с словами, начинающимися на гласные!