Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

var a: array [1..20] of integer; i,s1,s2: integer;

begin

for i: =1 to 20 do begin

                              writeln('введите элемент ',i); read(a[i]);

                                if i mod 2=0 then s1: =s1+a[i] else

                                                            s2: =s2+a[i];

                          end;

writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);

readln;

end.

ну как всегда: вопросы - в личку)

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

(телефон) поверчу волшебный круг,- и меня услышит друг.  (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это  )