Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль

Чтобы найти количество элементов в целочисленном массиве, заканчивающихся цифрой 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.

Объяснение программы:

1. Объявление переменных и массива:

   • arr — массив, в котором будут храниться целые числа.
   • n — количество элементов в массиве, вводится пользователем.
   • i — индекс для цикла.
   • count — счетчик, который будет хранить количество элементов, заканчивающихся на 3.

2. Ввод данных:

   • Пользователь вводит количество элементов в массиве.
   • Пользователь последовательно вводит каждый элемент массива.

3. Обработка массива:

   • Для каждого элемента массива мы используем оператор mod, чтобы получить последнюю цифру элемента (arr[i] mod 10).
   • Если последняя цифра равна 3, увеличиваем count на 1.

4. Вывод результата:

   • После проверки всех элементов массива, программа выводит количество элементов, заканчивающихся на 3.

Таким образом, программа эффективно решает задачу, используя базовые возможности языка Паскаль, такие как массивы и циклы.

Для решения данной задачи вам необходимо перебрать все элементы целочисленного массива и проверить, заканчивается ли каждый из них на цифру 3. Если элемент оканчивается на цифру 3, увеличиваем счетчик на 1.

Пример кода на Pascal:

program CountElementsEndingWith3;

var
  arr: array[1.10] of integer; // пример целочисленного массива
  i, count: integer;

begin
  count := 0;

  // заполнение массива для примера
  for i := 1 to 10 do
  begin
    arr[i] := i * 10 + 3; // все элементы заканчиваются на цифру 3
  end;

  // подсчет элементов, заканчивающихся на цифру 3
  for i := 1 to 10 do
  begin
    if arr[i] mod 10 = 3 then
      count := count + 1;
  end;

  writeln('Количество элементов массива, заканчивающихся цифрой 3: ', count);
end.

В данном примере массив заполняется элементами, оканчивающимися на цифру 3 (например, 13, 23, 33 и т.д.). Затем происходит перебор элементов массива и подсчет элементов, заканчивающихся на цифру 3. Результат выводится на экран.