PascalABC.NET:

• ##
• var n := ReadInteger('Введите длину массива:');
• var a := ReadArrReal('Введите элементы массива:', n);
• Print('Максимальный элемент:', a.Max)