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