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

спасибо

3 решение в этому дано Найти частное и остаток от деления натурального числа m на натуральное n, используя только операции вычитания и сравнения двух чисел.?

аууу

дк это вторая задача

const  n = 5;var  x: array[1..n] of integer;i: integer;begin  for i := 1 to n do    readln(x[i]);    for i := 1 to n do    if i = 1 then x[1] := 2 else    if (i = n) and (n mod 2 <> 0) then x[n] := n - 1    else    if i mod 2 <> 0 then       x[i] := ((i + 1) + (i - 1)) / 2;  for i := 1 to n do    writeln(x[i]);end.___________________________________________var m, n, m1, n1, k: integer;ch, ost: real;beginreadln(m, n);m1 := m;n1 := n;k := 0;if m<n then begin ost:=m/n; ch:=0; end;if m=n then beginch:=1;ost:=0;end; if m>n then begin while m1 > 0 do beginif m1 = n then begink := k + 1;break;end;m1 := m1 - n;k := k + 1;end;ch := k - 1;if m1 = n then begin ost := 0;ch := k;endelsebegin ost := (m1 + n1) / n1; ch := k - 1;end;end; writeln(ch, ' ', ost); end.______________________________  const n=5;  var a:array[1..n] of real;  i,k:integer;  b,p:real;  begin  k:=1;  for i:=1 to n do  readln(a[i]);  writeln('введите число');  readln(b);  for i:=1 to n do begin  if a[i]<b then begin  p:=a[k];  a[k]:=a[i];  a[i]:=p;  k:=k+1;  end;  end;  for i:=1 to n do  writeln(a[i]);  end.