Посчитать количество пар элементов в которых оба элемента чётныеПрограмма Pascal

Предыдущий
вопрос Следующий
вопрос

var
arr: array[1..10] of integer;
i, j, count: integer;

begin
randomize;

// Заполняем массив случайными числами
for i := 1 to 10 do
begin
arr[i] := random(10) * 2; // Генерируем четные числа
write(arr[i]:4);
end;

writeln;

count := 0;

// Подсчитываем количество пар четных элементов
for i := 1 to 9 do
begin
for j := i + 1 to 10 do
begin
if (arr[i] mod 2 = 0) and (arr[j] mod 2 = 0) then
begin
count := count + 1;
end;
end;
end;

writeln('Количество пар четных элементов: ', count);

end.