Fortran

[Pomogite_pls]

minmax3. Дано целое число N и набор из N прямоугольников, заданных своими сторонами — парами чисел (a, b). Найти максимальный периметр прямоугольника из данного набора.

Minmax18. Дано целое число N и набор из N целых чисел. Найти количество элементов, содержащихся между первыми последним максимальным элементом. Если в наборе имеется единственный максимальный элемент, то вывести 0.


Proc12. Описать процедуру SortInc3 (A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными повозрастанию (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). Спомощью этой процедуры упорядочить повозрастанию два данных набора изтрех чисел: (A1, B1, C1) и (A2, B2, C2)

Proc27. Описать функцию IsPowerN (K, N) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа N (> 1), и False в противном случае. Дано число N (> 1) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа N в данном наборе.