В Паскаль. Помогите решить,хоть какую нибудь из этих. 1. Найти наибольший элемент и его номер в последовательности, элементы кот
В Паскаль. Помогите решить,хоть какую нибудь из этих. 1. Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный. 2.Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный. 3. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54,33]. Размер произвольный. 4. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А. Размер произвольный.
<em>Все решения даны в системе программирования</em> <em>PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>Если программа не работает, обновите версию!</em>
<u>№1</u> begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
<u>Пример</u> n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
<u>№2</u> begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.