Определить количество элементов массива, находящихся в интервале от 1 до 12 - Pascal ABC

Формулировка задачи:

Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. Определить количество элементов, находящихся в интервале от 1 до 12.

Решение задачи: «Определить количество элементов массива, находящихся в интервале от 1 до 12»

Листинг программы

program pr;
const
  Csize = 10;
  Cz: set of integer = [1..12];
type
  Tarr = array [1..Csize] of integer;
var
  i, cout: integer;
  a: Tarr;
begin
  cout := 0;
  for i := 1 to Csize do
  begin
 writeln('Введите ',i,' элемент:');
 readln(a[i]);
  end;
    for i := 1 to Csize do
write(a[i]:3);
  for i := 1 to Csize do 
    if a[i] in Cz then
    begin
      cout := cout + 1;
    end;
  writeln;
  writeln('Количество элементов, находящихся в интервале от 1 до 12: ', cout);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

i и cout - целые числа, используются для цикла
a - массив целых чисел, который будет заполняться в процессе выполнения программы
Cz - множество целых чисел, которое содержит все числа от 1 до 12 Программа начинается с объявления константы Csize, которая равна 10. Затем объявляется тип Tarr, который представляет собой массив целых чисел размером от 1 до Csize. Далее объявляются три переменные: i, cout и a. Переменная i используется для внутреннего цикла, а переменная cout - для подсчета количества элементов, удовлетворяющих условию. Переменная a используется для хранения элементов массива. Затем начинается цикл, в котором пользователю предлагается ввести элементы массива. Для каждого элемента выполняется следующая последовательность действий:
1. Выводится сообщение Введите, текущий индекс i, элемент:.
2. Считывается введенное значение и сохраняется в переменную a[i].
3. Выводится сообщение Введено:, a[i], . После завершения цикла введенные элементы выводятся на экран. Затем выполняется еще один цикл, в котором проверяется, содержится ли каждый введенный элемент в множестве Cz. Если элемент содержится в множестве, то переменная cout увеличивается на 1. В конце программы выводится сообщениеКоличество элементов, находящихся в интервале от 1 до 12: `, значение переменной cout. Таким образом, данный код позволяет определить количество элементов массива, которые находятся в интервале от 1 до 12.