файла вещественных чисел

[k221]

составить программу которая для заданного файла вещественных чисел проверяет удовлетворяют ли его компоненты (со второй по последнюю) условию: ai>(ai+1+ai-1)/2 ((i i+1 и i-1 это индексы) язык паскаль)

[ViktorR]

Можно, например, так:
1. Читаем три первых числа в переменные a, b, c;
Логической переменной назначаем true

flag := true;

2. Цикл до конца файла
3. Проверяем условие: b > (a + c)/2
4. Если Нет, то

flag := false;
break; {(выход из цикла)}.

5. Если Да, то читаем следующее число в переменную d
6. Сдвигаем числа:

a := b; b := c; c := d;

7. Продолжим цикл с п.2
8. Если flag - истина, то сообщаем, что удовлетворяе,
а иначе - нет, неудовлетворяет.



Как-то так, ...