Вычислить количество элементов массива, равных нулю - Turbo Pascal (35294)

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

В одномерном массиве,состоящем из n вещественных элементов,вычислить,количество элементов массива,равных нулю;

Решение задачи: «Вычислить количество элементов массива, равных нулю»

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

uses crt;
 
const
  nmax = 20;
 
var
  A : array [1..nmax] of real;
  i, n : integer;
  count : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество элементов (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do Read(A[i]);
  count := 0;
  for i := 1 to n do if A[i] = 0 then inc(count);
  Writeln('Количество нулевых элементов: ', count);
  Readln;
end.

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

В начале кода подключается библиотека crt, которая используется для ввода-вывода данных.
Затем определяются константа nmax, которая ограничивает размер массива до 20 элементов, и переменные A, i, n и count, которые будут использоваться в дальнейшем.
Переменная A представляет собой массив из nmax элементов типа real.
Переменная i используется как счетчик для цикла, который будет проходить по каждому элементу массива A.
Переменная n используется как счетчик для цикла, который будет проходить по количеству введенных пользователем элементов.
Переменная count инициализируется нулем и будет использоваться для подсчета количества элементов, равных нулю.
Затем идет цикл while, который повторяется до тех пор, пока n не станет равным 0 или больше nmax.
Внутри цикла while выводится сообщение с просьбой ввести количество элементов массива.
Затем идет цикл for, который проходит по каждому элементу массива A.
Внутри цикла проверяется условие if A[i] = 0, что означает, что текущий элемент равен нулю.
Если это условие истинно, то значение переменной count увеличивается на единицу.
После завершения цикла for выводится сообщение с количеством элементов, равных нулю.
Затем идет цикл for, который снова проходит по каждому элементу массива A.
После завершения второго цикла for выводится сообщение с количеством нулевых элементов.
Наконец, выводится сообщение с просьбой ввести элементы массива.
Цикл while повторяется до тех пор, пока n не станет равным 0 или больше nmax.
После окончания цикла while выводится последний раз сообщение с количеством нулевых элементов.
Конец программы.