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

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

одномерном массиве, с n действительных элементов, вычислить: количество элементов равных нулю, вывести ненулевые элементы на экран.

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

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

const
  n = 10;
 
var
  k, i: integer;
  x: array [1..n] of real;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    x[i] := -n div 2 + random * n;
    write(x[i]:8:2);
  end;
  writeln;
  k := 0;
  writeln('Ненулевые элементы массива:');  
  for i := 1 to n do
  begin
    if x[i] = 0 then 
      inc(k)
    else
      write(x[i]:8:2);
  end;
  writeln;  
  writeln('Количество элементов равных нулю: ', k)
  
end.

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

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

n - целое число, равное 10 (предположительно, это размер массива);
k - целочисленная переменная, которая будет использоваться для подсчета количества элементов массива, равных нулю;
i - целочисленная переменная, используется для итерации по элементам массива;
x - массив, состоящий из 10 элементов типа real (предполагается, что это массив чисел с плавающей точкой); Код начинается с инициализации генератора случайных чисел и вывода исходного массива на экран. Затем происходит итерация по каждому элементу массива. Если элемент равен нулю, то переменная k увеличивается на единицу. В конце выводится количество элементов, равных нулю. Таким образом, данный код позволяет вычислить количество элементов массива, равных нулю.