Составить программу заполнения массива а[1..10] следующими числами: индекс массива 1 2 3...

Question

Составить программу заполнения массива а[1..10] следующими числами:
индекс массива 1 2 3 4 5 6 7 8 9 10
значение элемента 1 6 3 12 5 18 7 24 9 30

закономерность- значения элементов с нечетными индексами равны индексу элемента,а значения элементов с четными индексами-утроенному индексу элемента. Срочно надо

Answer 1

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
  var a:=SeqGen(10,i->i.IsEven?i+1:3*(i+1)).ToArray; a.Println
end.

Результат
1 6 3 12 5 18 7 24 9 30