Question

Задан массив A[1..17]. Составьте программу, которая выводит индексы тех элементов, значения которых равны нулю.

Answer 1

Var
a:array[1..17] of integer;
i:integer;
begin
  for i:= 1 to 17 do
   begin
    read(a[i]);
    if a[i] = 0 then
      Write(i, ' ');
   end;
end.

пример:
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6
1 11

Answer 2

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(17,-5,5); a.Println;
  var s:=a.IndexesOf(t->t=0);
  if s.Count>0 then s.Select(t->t+1).Println
  else Writeln('нет нулей')
end.

Пример
-3 -5 0 0 1 0 -5 2 1 -5 2 -1 2 -5 0 -5 2
3 4 6 15

Answer 3

Для решения этой задачи можно написать программу на языке программирования, который вы планируете использовать. Вот пример решения на Python:

pythonCopy code
def find_zero_indices(array):
    zero_indices = []
    for i, num in enumerate(array):
        if num == 0:
            zero_indices.append(i)
    return zero_indices

# Пример входного массива A
A = [1, 0, 3, 0, 0, 6, 7, 0, 9, 0, 11, 0, 0, 14, 15, 16, 0]

zero_indices = find_zero_indices(A)
print("Индексы элементов со значением 0:", zero_indices)

В данном примере, функция find_zero_indices принимает массив array и возвращает список индексов элементов, значение которых равно 0. Затем, для примера, создается массив A и вызывается функция для поиска индексов элементов со значением 0. Результат выводится на экран. Вы можете заменить массив A на свой собственный или использовать ввод с клавиатуры для получения массива от пользователя.