Заранее определяем массив большого размера.
Пользователь вводит ограничивающее число, далее работаем от 1 до этого числа (индексы).
Заполняем случайными числами функцией Random(101). Как выводить в строку - думаю, вы понимаете.
Предварительно пробегаем по массиву и каждый третий меняем на полусумму двух предыдущих (следовательно тип массива Real). Как пробегать - разные способы. Например:
Code
For i := 1 to MaxIndex do
if (i mod 3 = 0) then a[i] := (a[i-2]+a[i-1]) / 2;
Грубо говоря - так.
Могу ошибаться, так как пишу по памяти без паскаля ))
