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

uses crt;vari, k: integer;a,k2: real;mas, ma: array [1..10] of integer;beginrandomize;write (' razmer massiva = '); readln (k);for i:=1 to k domas[i]:= random (10);for i:=1 to k dowrite (mas[i],' ');for i:=1 to k doif i mod 2<>0 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.