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