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

Благодарствую!