Массив из 100 случайных чисел (заполнить самим) целых положительных чисел из диапозона [1..3000]. Написать программу, которая ищет среди них число, которое нацело делится на максимальную степень тройки.
Результат работы программы: найденное значение, номер в массиве и степень 3-ки
как-то так (заполнение массива самостоятельно) _pow3:=2187; for k:=7 downto 0 do begin for i:=1 to 100 do if arr mod _pow3 then begin writeln(arr,i,k); exit(0); end; _pow3:=_pow3 div 3; end;