Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите количество чисел, оканчивающихся на 2. Числа вводятся с клавиатуры!
Написать в Паскале)
Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите количество чисел, оканчивающихся на 2. Числа вводятся с клавиатуры!
Написать в Паскале)
Написать в Паскале)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountNumbersEndingInTwo;
var
numbers: array[1..10] of Integer;
i, count: Integer;
begin
count := 0;
writeln('Enter 10 integers:');
if numbers[i] mod 10 = 2 thenfor i := 1 to 10 do
begin
write('Enter number ', i, ': ');
readln(numbers[i]);
count := count + 1;
end;
writeln('Count of numbers ending in 2: ', count);
end.