Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен квадрату текущего индекса 2-й равен случайному числу 3-й равен полусумме двух предыдущих элементов

Вопрос школьника по предмету Информатика

Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен квадрату текущего индекса
2-й равен случайному числу
3-й равен полусумме двух предыдущих элементов

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var a:array[1..9] of real;

  randomize;

  for var i:=1 to 9 do begin

    case i mod 3 of

    1:a[i]:=i*i;

    2:a[i]:=random(1,50);

    else a[i]:=(a[i-2]+a[i-1])/2

    end;

    Write(a[i],’ ‘)

    end;

  Writeln

end.

Пример

1 44 22.5 16 16 10 49 39 23