НУЖНО ДВЕ ПРОГРАММЫ НА PASCALе. 1) Ввести массив А(n) вещественных чисел. Все положительные элементы переписать в массив А1, найти в нем максимум и поставить его на первое
место в А1. Массивы А и А1 распечатать.
2) Перераспределить значения переменных X и Y так, чтобы в X оказалось
меньшее из этих значений, а в Y — большее.