Даны 3 вещественных числа. Вывести на экран те из них, которые принадлежат интервалу (1,6 ; 3,8). Если ни одно число не подходит, ты вывести на экран сообщение: "Ни одно число не принадлежит интервалу".

Во-вторых, первый вариант никак не подходит под задачу, поскольку каждое следующее условие использует результат предыдущего ("иначе").

Нет, не могу, т.к. мы только паскаль проходим. И я понимаю, что можно это сделать, но задание именно с алгоритмом, че я сделать могу?

Что нужно сделать: вводишь логическую переменную, присваиваешь ей значение "ложь", в каждом условии при его срабатывании присваиваешь ей значение "истина" (можешь проверять со второго, не присвоено ли уже, как у меня).

Догнал?

ПЕР  числа: РЯД 3 ИЗ ВЕЩ;  сч: ЦЕЛ;  найдено: КЛЮЧ;УКАЗ  найдено := ОТКЛ;  ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП    ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО      Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН    КОН  КОН;  ЕСЛИ НЕ найдено ТО    Вывод.Цепь("Ни одно число не принадлежит интервалу.")  КОН