Для начала заводим переменную счетчик для подсчета количества четных и нечетных .
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;
}
