Какие свойства между яблоней и человеком?

Для начала заводим переменную счетчик для подсчета количества четных и нечетных .

var count,count2:integer;

Далее в теле цикла с массивом, после его вывода добавляем условие if then else

if a[i].IsEven then count+=1 else count2+=1

Т.е. сам цикл будет выглядить так

for i := 1 to n do

 begin

   a[i] := Random(1, 50);

   Write(a[i], ' ');

   if a[i].IsEven then Count += 1 else Count2 += 1;

end;

Вместо a[i].IsEven можно использовать not Odd(a[i]) или уже a[i] mod 2 = 0

Ну а далее уже вывод количеств четных и нечетных

Можно сделать все еще проще.

begin

 var a := ArrRandom(20, 1, 50);

 Println('Четных ', a.Where(z -> z mod 2 = 0).Count, 'Нечетных ', a.Where(z -> Odd(z)).Count);  

end.

#include <iostream>

int main()  

{

   int a, b, c, d, sum;

   char first, second;

   // Русский язык в консоли

   setlocale(LC_ALL, "Russian");

   std::cout << "Введите a: ";

   std::cin >> a;

   std::cout << "Введите b: ";

   std::cin >> b;

   std::cout << "Введите c: ";

   std::cin >> c;

   std::cout << "Введите d: ";

   std::cin >> d;

   sum = a + b; first = 'a'; second = 'b';

   if (a + c > sum) { sum = a + c; second = 'c'; }

   if (a + d > sum) { sum = a + d; second = 'd'; }

   if (b + c > sum) { sum = b + c; first = 'b'; second = 'c'; }

   if (b + d > sum) { sum = b + d; first = 'b'; second = 'd'; }

   if (c + d > sum) { sum = c + d; first = 'c'; second = 'd'; }

   std::cout << "Пара чисел с максимальной суммой - это числа " << first << " и " << second << ", их сумма равна " <<

       sum << std::endl;

   return 0;

}