1) Дан массив целых чисел. Подсчитать сумму элементов с четными индексами.

2)Дан одномерный массив,состоящий из 20 элементов. Подсчитать количество элементов,превышающих по значению его среднее арифметическое.

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ArrRandom(ReadInteger(n=),1,50);
  Write(Элементы: ); a.Println;
  if a.Lengthgt;1 then
    Writeln(Сумма элементов с четными индексами равна ,a[1::2].Sum)
  else
    Writeln(В массиве нет элементов с четным индексом)
end.

Пример
n= 13
Элементы: 37 37 34 46 32 22 16 48 17 25 5 44 16
Сумма элементов с четными индексами равна 222

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ArrRandom(20,1,50);
  Write(Элементы: ); a.Println;
  var m:=a.Average;
  Writeln(Количество элементов, превышающих ср.арифм, равно ,
    a.Where(x-gt;xgt;m).Count)
end.

Пример
Элементы: 9 6 14 2 17 31 18 41 20 2 32 16 44 5 30 29 7 5 32 1
Количество элементов, превышающих ср.арифм, равно 8

1)
int score = 0;
for(int i = 0; ilt; arr.length(); i++)
{if ( arr[i] 2 == 0){ score += arr[i];}

2)int score = 0;
for(int i = 0; i lt; 20; i++){
score += arr[i];};

score /= 20;
int all = 0;

for( int i = 0; i lt; 20; i++){
if (score lt; arr[i]){all++};