ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ОДНОМЕРНЫХ МАССИВОВ

Решение задачи на PHP:

echo array_sum(array_filter($array, function($key) { return $key % 2 == 0; }, ARRAY_FILTER_USE_KEY));

P.S. Вопрос надо начинать с названия языка программирования.

C++
Самый начальный, левый, элемент массива имеет индекс ноль, что означает что он (этот индекс ноль) чётный и далее через 1 элемент складываем.

#include < iostream >
#include < cstdlib >
#include < ctime >

using namespace std;

void main()
{
setlocale(LC_ALL, "rus");
cout << "Введите количество элементов массива ";
int n;
cin >> n;
auto a = new int[n];
int sum = 0;
cout << "Массив" << endl;
for (unsigned i(0); i < n; ++i)
{
a[i] = rand() % 51;
cout << a[i] << " ";
if (i % 2 == 0)
sum += a[i];
}
cout << "\nСумма " << sum;
cin.get(); cin.get();
}

if then < . дальше сам

Паскаль АБЦ (PascalABC):
var a: array of double;
function findSum(ar:array of double):double;
var i:integer;
sum:double := 0;
begin
for i := 0 to ar.Length-1 do begin if i mod 2 = 0 then sum += ar[i];
Result := sum
end;
procedure randomFillArray ( var ar:array of double; n:double);
var i:integer;
begin
randomize();
for i:=0 to ar.Length-1 do a[i] := Random()*n;
end;
Begin
var k, flag: integer;
var n: double;
writeln ('Введите k');
readln (k);
setlength (a,k);
writeln ('Вы будете заполнять? 1-да, другое число-нет');
readln (flag);
if flag = 1 then for var i := 0 to a.length-1 do begin
Write('Введите элемент ',i,': ');
Readln (a[i])
end
else begin
writeln ('Введите диапазон n(0..n) случайных чисел');
readln (n);
randomFillArray (a, n);
end;
writeln('Ваш массив: ', a.ToStr (','));
write('Сумма чисел, порядковые номера которых чётные равна: ', findSum (a));
End.
С трудом на планшете написал