Question

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

Answer 1

// 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

Answer 2

Вы прочитайте начало ответа: " PascalABC.NET 3.2, сборка 1389 от 01.03.2017
Внимание! Если программа не работает, обновите версию!"

Answer 3

На паскале всегда так, переменные выносятся в описание, это не питон. Ну я сам подправил, спасибо

Answer 4

Написана программа на Паскале, работает, а Вы рассказываете, что надо ВСЕГДА описания выносить из блока наверх. Реально смешно и даже глупо.