Дан массив из целых чисел 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.