Создать массив из номеров нулевых элементов исходного массива - Pascal ABC

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

Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов.

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

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

program pr;
var
  a, b: array [1..100] of integer;
  i, n, j,cout: integer;
begin
cout:=0;
j:=1;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n  do
  begin
  writeln('Введите ',i,' элемент');
  readln(a[i]);
  end;
  for i:=1 to n do
  write(a[i]:3);
  for i := 1 to n do
    if a[i] = 0 then
    begin
      b[j] := i;
    j:=j+1;
    cout:=cout+1;
    end;
    writeln;
  writeln;
  writeln('Массив из индексов нулевых элементов');
for i:=1 to cout do
  write(b[i]:3);
end.

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

В данном коде создается программа на языке Pascal ABC. Переменные в программе:

a, b: массивы целых чисел размером до 100;
i, n, j, cout: целые числа. Код начинается с объявления переменных. Затем программа запрашивает у пользователя размер массива и считывает элементы массива a. Далее идет цикл, который проходит по всем элементам массива a и записывает их в массив b. Если элемент в массиве a равен нулю, то его индекс добавляется в массив b, счетчик j увеличивается на 1, и значение переменной cout увеличивается на 1. После этого выводится сообщение о массиве из индексов нулевых элементов. В конце программы выводится сообщение о количестве элементов в массиве b. Таким образом, данный код создает массив из номеров нулевых элементов исходного массива.