Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести индекс минимального среди трёхзначных элементов массива, делящихся на 3. Если в исходном массиве нет трёхзначного элемента, кратного 3, то следует вывести сообщение «Не найдено». Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
В качестве ответа необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например PascalABC 1.8). В этом случае вы должны использовать переменные, аналогичные переменным, используемым в алгоритме, с учётом синтаксиса и особенностей используемого вами языка программирования.
Пример фрагмента программы на языке PascalABC 1.8.
min:=999; k:=0;
for i := 1 to N do
if (1000>a[i]) and (99a[i]) and
(a[i] mod 3 = 0) then begin
min:= a[i]; k:=i
end;
if k>0 then writeln(k)
else writeln(’ Не найдено ’);