дан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.

 var   x : array [1..5] of real;   i : integer;     begin  for i := 1 to 5 do   if i mod 2 = 1 then    x[i] := (i+1+i-1)/2;  for i := 1 to 5 do   writeln (x[i]:3:2);  end.