Робота з комп'ютерною графікою — один з найпоширеніших напрямків використання персонального комп'ютера, до того ж виконують цю роботу не тільки професійні художники і дизайнери. На будь-яких підприємствах іноді виникає необхідність подачі рекламних оголошень в газетах і журналах або просто у випуску рекламної листівки або буклету.
Без комп'ютерної графіки не обходиться жодна сучасна мультимедійна програма. Робота над графікою становить до 90 % робочого часу програмістських колективів, які випускають програми масового використання.
Розрізняють 3 види комп'ютерної графіки. Це растрова графіка, векторна графіка і фрактальна графіка. Вони відрізняються принципами формування зображення при відображенні на екрані монітора або у разі друку на папері.
Для решения данной задачи определим количество итераций цикла. Для этого рассмотрим, как в результате выполнения алгоритма меняется значение переменной x. Начальное значение x = 0.На каждой итерации цикла значение переменной x увеличивается на 1, а после окончания цикла x = 28. Следовательно, всего было выполнено 28 итераций.
Теперь рассмотрим, как изменялось значение переменной p. Начальное значение p = 0. На каждой итерации цикла значение переменной p увеличивается на a. Так как всего было выполнено 28 итераций, то после выполнения цикла p = 0 + 28 · a = 28a. Так как цикл выполняется, пока условие p < 140 истинно, то выход из цикла осуществляется при p > 140.
Поэтому значение переменной a находим из условия 28a ≥ 140.
Отсюда a ≥ 5.
Значит, наименьшее значение переменной a должно принимать значение 5.
ответ:5
begin
var a := ReadSeqIntegerWhile(t -> t <> 0).ToArray;
a.Where(t -> t > a.Average).Println
end.
-5 11 9 14 23 -13 8 6 0 1000011 9 14 23 8