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

1) int score = 0; for(int i = 0; i< arr.length(); i++) {if ( arr[i] % 2 == 0){ score += arr[i];} 2)int score = 0; for(int i = 0; i < 20; i++){ score += arr[i];}; score /= 20; int all = 0; for( int i = 0; i < 20; i++){ if (score < arr[i]){all++};

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin   var a:=ArrRandom(ReadInteger('n='),1,50);   Write('Элементы: '); a.Println;   if a.Length>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->x>m).Count) end. Пример Элементы: 9 6 14 2 17 31 18 41 20 2 32 16 44 5 30 29 7 5 32 1 Количество элементов, превышающих ср.арифм, равно 8