Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое элементов, которые стоят на нечетных местах.

uses crt;

var

i, k: integer;

a, k2: real;

mas, ma: array [1 ... 10] of integer;

begin

randomize;

write (' razmer massiva = ') ; readln (k) ;

for i:=1 to k do

mas[i]: = random (10) ;

for i:=1 to k do

write (mas[i],' ') ;

for i:=1 to k do

if i mod 20 then a: = mas[i]+a;

writeln;

if k mod 2 0 then begin k:=k+1; k2: = k/2; end else k2: = k/2;

a: = a/k2;

write ('sredn znach = ', a) ;

readkey;

end.