Написать программу, которая вводит десять чисел в одномерный массив, а затем определяет среднее арифмитичне элементов с четными индексами и нечетными индексами
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.
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.