Найти произведение чисел, расположенных в массиве правее наименьшего - Turbo Pascal
Формулировка задачи:
Дан массив целых чисел, представленных в 8-ричной системе счисления. Осуществить перевод в 10-ричную и обратно. Вычислить индексы наибольшего и наименьшего чисел. Найти произведение чисел, расположенных в массиве правее наименьшего. Заранее спасибо за помощь.
Решение задачи: «Найти произведение чисел, расположенных в массиве правее наименьшего»
textual
Листинг программы
p:=1; for i:=imin to n do //imin - номер наименьшего p:=p*a[i];