Question

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

Answer 1

// 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

Answer 2

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++};