Заполнить одномерный массив из 10 элементов случайными числами в интервале [10, 100] и найти минимальный и максимальный элементы из нечетных элементов массива. Пример: Массив: 39 52 84 77 45 32 19 38 49 85 Минимальный чётный: 19 Максимальный чётный: 85

#include <iostream>

using namespace std;

signed main(){

   srand(time(NULL));

   int a[10], mn = 101, mx = -1;

   cout << "Массив: " << "\n";

   for(int i = 0; i < 10; i++){

       a[i] = rand() % 91 + 10;

       cout << a[i] << " ";

       if(a[i] % 2 == 1){

           mn = min(mn,a[i]);

           mx = max(mx,a[i]);

       }

   }

   cout << "\n" << "Минимальный нечетный: " << mn << "\n";

   cout << "Максимальный нечетный: " << mx;

}

Program triples;
const
RAND_F = 1;
RAND_T = 20;
var
b: array[1..15] of integer;
t: array[1..3] of integer;
i, j, max, max_i, tmp: integer;
begin
randomize;
for i := 1 to 15 do
b[i] := random(RAND_T) + RAND_F;
i := 1;
while i < 15 do
begin
t[1] := b[i];
t[2] := b[i+1];
t[3] := b[i+2];
max := t[1];
for j := 2 to 3 do
if t[j] > max then
begin
max := t[j];
max_i := j;
end;
tmp := t[3];
t[3] := max;
t[max_i] := tmp;
if t[2] < t[1] then
begin
tmp := t[2];
t[2] := t[1];
t[1] := tmp;
end;
write('Числа ', i, '-', i + 2, ': ');
writeln(t[1], ' ', t[2], ' ', t[3]);
i := i + 3;
end;
end.

Обратим внимание, что задания 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит задание 3 к заданию 2.
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
  Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
  Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.

Пример
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84