Написать программу

[12sasha]

Здравствуйте!
Помогите пожалуйста написать программу для задачки:
Даны три вещественных числа. Вывести на экран те из них, которые принадлежат интервалу (-6,7;11,2). Если таких чисел нет, то вывести сообщение «ТАКИХ ЧИСЕЛ НЕТ»

Не могу разобраться с условиями if then...
Что не ввожу, выдает ошибку кода

Помогите с написанием программы для решения задачи:

В одномерном массиве из 50 элементов найти наименьший четный элемент массива. Если такого нет, то выведите первый элемент. Результат вывести на экран и записать в файл.

[Вадим Мошев]

Сообщение от 12sasha

Не могу разобраться с условиями if then...
Что не ввожу, выдает ошибку кода

1. Покажите код.
2. Покажите, как вводите

Сообщение от 12sasha

В одномерном массиве из 50 элементов найти наименьший четный элемент массива. Если такого нет, то выведите первый элемент. Результат вывести на экран и записать в файл.

Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[Алексей_2012]

1. задаем массив из 3х элементов типа real (var a:array[0..2] of integer)
2. в цикле заполняем массив с клавиатуры (readln)
3. вводим переменную типа boolaen присваиваем ей значение false
4. в цикле проверяем условие: if (a[i]>-6.7 and a[i]<11.2), то выводим элемент и присваиваем значение переменной типа boolaen true
5. после цикла смотрим: если переменная типа булеан false, то выводим сообщение, что элементов в заданном интервале не было