Вопрос Помогите написать программу на языке Pascal

[omgLOL]

Массив из 100 случайных чисел (заполнить самим) целых положительных чисел из диапозона [1..3000]. Написать программу, которая ищет среди них число, которое нацело делится на максимальную степень тройки.
Результат работы программы: найденное значение, номер в массиве и степень 3-ки

 

[Гектор]

//otvet.imgsmail.ru/download/34182886_3c4e0dc9273e187cfba58648ca7c720a_800.jpg

 

[vfrcv]

как-то так (заполнение массива самостоятельно) _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;