program Main;
var
arr: array[1..10] of Integer;
i, evenCount, oddCount: Integer;
begin
evenCount := 0;
oddCount := 0;

// Заполняем массив случайными числами от 20 до 100
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(81) + 20;
writeln(arr[i]);

// Подсчитываем количество четных и нечетных элементов
if arr[i] mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

end;

writeln('Четные элементы: ', evenCount);
writeln('Нечетные элементы: ', oddCount);
end.

// Пример вывода:
// 55
// 97
// 34
// 71
// 77
// 48
// 39
// 76
// 40
// 92
// Четные элементы: 5
// Нечетные элементы: 5