Дан массив из 20 чисел и некоторое число С.
Найти среднее арифметическое элементов массива, которые больше заданного числа С и находятся на нечетных позициях.

Полученное число должно выводиться с тремя знаками после запятой.
Если не помните, как это сделать, перейдите по ссылке :
http://physic.kemsu.ru/pub/library/learn_pos/Free_Pascal/Free%20Pascal/soder/3_1_2.htm

Sample Input 1:

4 1 0 3 2 5 8 15 2 16 3 13 0 6 14 2 16 2 5 1
6
Sample Output 1:

12.667
Sample Input 2:

15 15 1 6 15 14 5 7 0 4 14 11 10 16 14 11 15 10 7 9
8
Sample Output 2:

13.833

var a:array [1..20] of integer;i,k,s,c:integer;beginfor i:= 1 to 20 doa[i]:= Random(20);writeln(a);write('Введите число: ');readln (c);for i:=1 to 20 doif (a[i] > c)and(i mod 2 = 1) thenbegins:=s+a[i];k:=k+1end;writeln('Cреднее арифметическое элементов массива, которые больше ',c,' и находятся на нечетных позициях равно: ',s/k:0:3)end.