Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. Паскаль.

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

program CountPositiveTwoDigitNumbers;

const
N = 10;

var
arr: array[1..N] of integer;
count: integer;
i: integer;

begin
count := 0;

// Заполнение массива случайными числами
randomize;
for i := 1 to N do
begin
arr[i] := random(90) + 10; // Создаем случайные двузначные числа
writeln('arr[', i, '] = ', arr[i]);

end;

writeln('Количество положительных двузначных чисел в массиве: ', count);
end.