Дан массив целых чисел (N <=100). Выведите все парные элементы массива в таком порядке, как они встречаются в массиве. язык - Delphi

Ну тут ты не указал какой масив, одновымерный или двохвымерный
я напишу для двохвымерного масива
Type Tabl = array [1..5,1..5] of integer;const A: Tabl = ((10,5,6,9,5) , (9,7,12,6,10), (5,4,8,9,11), (10,9,4,2,6), (8,4,6,9,5));var i,j:integer;var Ar,P: real;beginAr:=1;P:=0;for i:=1 to 5 do beginfor j:=1 to 5 dowrite (A[i,j]:3);writeln;end;for i:=1 to 5 dofor j:=1 to 5 do beginP:=A[i,j]+A[i,j];Ar:=(Ar+P)/25;write (Ar:5:2);end;writeln;end.

P.S. в константу можешь писать любые числа, которые придумаешь
Почти получилось, только со среднем арифметическим проблема
и должно быть записано все в таком порядке, как на втором скрине

#include<iostream>

using namespace std;
int main(){
int N;
int *arr;
cout << "enter size of arr(enter N) : ";
cin >> N;
arr = new int [N];

for(int i = 1; i <= N;i++)
cin >> arr[i];
cout << "your arr : ";
for(int i = 1; i <= N;i++)
cout << arr[i] << " " ;

cout << "new arr : ";
for(int i = N; i > 0;i--)
cout << arr[i] << " " ;

cout << "new2 arr : ";
for(int i = 1; i <= N;i++)
{
if((i % 2) == 0)
cout << arr[i] << " " ;
}
}