profile
Опубликовано 5 лет назад по предмету Информатика от mokrinskaya

дана строка,состоящая из слов, разделенная пробелами (количество слов не менее3), вывести те слова, длина которых меньше,чем у предыдущего слова,и больше, чем у последующего

  1. Ответ
    Ответ дан HRAshton
    var
      s: string;
      arr: array of string;

    begin
      s := 'Привет дорогой мой прекрасный мир я так тебя люблю';
      arr := s.Split(' ');
      for i: byte := 1 to length(arr) - 2 do
        if ((arr[i - 1].Length > arr[i].Length) and (arr[i].Length > arr[i + 1].Length)) then
          writeln(arr[i], ' ');
    end.
Самые новые вопросы