вопрос, описание массива Опции

[marwell]

Дан массив чисел: Y=(-1.5, 0.3, 6.2, -8.4, 0, 7.2, 2.6). Напишите программу вычисления суммы элементов с нечетными индексами и произведения элементов с четными индексами.
У меня только один вопрос: как можно описать массив Y чтобы пользователю не приходилось вводить элементы самостоятельно?

[TarasBer]

Чтобы не писать занудное Y[0] := 0; Y[1] := 1; Y[2] := 2; итд?
Ну можно задать типизированную константу.

type
  TArr = array [0 .. 9] of extended;

const
  a: TArr = (0,1,2,3,4,5,6,7,8,9);

var
  b: TArr;

...
  b := a;

[marwell]

Чтобы не писать занудное Y[0] := 0; Y[1] := 1; Y[2] := 2; итд?
Ну можно задать типизированную константу.

type
  TArr = array [0 .. 9] of extended;

const
  a: TArr = (0,1,2,3,4,5,6,7,8,9);

var
  b: TArr;

...
  b := a;

спасибо!