Написать программу, которая вводит десять чисел в одномерный массив, а затем определяет среднее арифмитичне элементов с четными индексами и нечетными индексами

Var r, n, m, max, k, el, Sumh, Sumnh:integer; C:Array[0 ... 9]of integer; Sh, Snh:real;

Begin

for r:=0 to 9 do begin

C[r]: = random (50) - 25; write (C[r]:4) ;

if r mod 2 = 0 then Sumh : = Sumh + C[r]

else Sumnh: = Sumnh + C[r]; end;

Sh: = Sumh/5; Snh: = Sumnh/5; writeln;

writeln ('среднеарифметическое элемент с четными индексами ', Sh:6:4) ;

write ('среднеарифметическое элемент с четными индексами ', Snh:6:4) ; end.