Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера. Пример: Исходный массив: 4 -5 10 -10 5 максимальный A[3]=10 минимальный A[4]=-10.ПАСКАЛЬ​

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(5);

 var (imx, imn) := (a.IndexMax, a.IndexMin);

 Writeln('максимальный A[', imx + 1, ']=', a[imx]);

 Writeln('минимальный A[', imn + 1, ']=', a[imn])

end.

1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер
2) Основное устройство ввода информации (10 букв).-клавиатура
3) "Мозг" компьютера (9 букв).-процессор
4) Устройство вывода информации (7 букв).-монитор
5) Устройство хранения программ и данных (6 букв).-память
6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь
7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета
8) Другое название жёсткого диска (9 букв). -винчестер
9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер

Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.

На примере: lg(125) / lg(5) = 3.  Так как 5³ = 125
lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.

print "Введите число"
input A
S = log(A) / log(5)
if S = int(S) then
   print "Число ";А; "является степенью числа 5"
   print "Показатель степени "; S
else
   print "Число ";А; "не является степенью числа 5"
end if
end