Создать массив из номеров нулевых элементов исходного массива - Pascal ABC
Формулировка задачи:
Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов.
Решение задачи: «Создать массив из номеров нулевых элементов исходного массива»
textual
Листинг программы
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. Таким образом, данный код создает массив из номеров нулевых элементов исходного массива.