Чтобы найти количество элементов в целочисленном массиве, заканчивающихся цифрой 3, необходимо пройтись по всем элементам массива и проверить условие окончания элемента на цифру 3. В языке программирования Паскаль это можно сделать с использованием цикла. Вот пример программы, которая решает эту задачу:
program CountElementsEndingWith3;
uses crt;
var
arr: array[1.100] of integer; // Объявляем массив из 100 целых чисел
n, i, count: integer; // Переменные для размера массива, индекса и счетчика
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to n do
begin
write('Элемент ', i, ': ');
readln(arr[i]);
end;
count := 0; // Инициализация счетчика
// Проверка каждого элемента массива
for i := 1 to n do
begin
if arr[i] mod 10 = 3 then // Если последняя цифра элемента равна 3
begin
count := count + 1; // Увеличиваем счетчик
end;
end;
// Вывод результата
writeln('Количество элементов, заканчивающихся на 3: ', count);
readln;
end.
Объяснение программы:
Объявление переменных и массива:
arr
— массив, в котором будут храниться целые числа.
n
— количество элементов в массиве, вводится пользователем.
i
— индекс для цикла.
count
— счетчик, который будет хранить количество элементов, заканчивающихся на 3.
Ввод данных:
- Пользователь вводит количество элементов в массиве.
- Пользователь последовательно вводит каждый элемент массива.
Обработка массива:
- Для каждого элемента массива мы используем оператор
mod
, чтобы получить последнюю цифру элемента (arr[i] mod 10
).
- Если последняя цифра равна 3, увеличиваем
count
на 1.
Вывод результата:
- После проверки всех элементов массива, программа выводит количество элементов, заканчивающихся на 3.
Таким образом, программа эффективно решает задачу, используя базовые возможности языка Паскаль, такие как массивы и циклы.