1.Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.
2.Массив А вводится с клавиатуры. Найти среднее арифметическое его
элементов с нечетными номерами. Размер произвольный. Заранее спасибо)))

1)program Ok;const n = 10;varA:array[1..n] of real;sum:real;i:integer;beginsum:=0;for i:=1 to n dobeginread(A[i]);sum:=sum+A[i];end;sum:=sum/n;for i:=1 to n dobeginif(A[i]<sum) thenwriteln(A[i]);end;end.2)program Ok;const n = 10;varA:array[1..n] of real;sum:real;i,k:integer;beginsum:=0;for i:=1 to n dobeginread(A[i]);if (i mod 2 = 1) thensum:=sum+A[i];if (i mod 2 = 1) thenk:=k+1;end;sum:=sum/k;write(sum);end.