Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите количество чисел, оканчивающихся на 2. Числа вводятся с клавиатуры!
Написать в Паскале)

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

program CountNumbersEndingInTwo;

var
numbers: array[1..10] of Integer;
i, count: Integer;

begin
count := 0;

writeln('Enter 10 integers:');
for i := 1 to 10 do
begin
write('Enter number ', i, ': ');
readln(numbers[i]);

end;

writeln('Count of numbers ending in 2: ', count);
end.