Question

Дан массив из 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

Answer 1

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