Question

ПОМОГИТЕ ПОЖАЛУЙСТА! пользователь вводит n действительных чисел с клавиатуры найти максимум и минимум.

Answer 1

//PascalABC.NET 3.4.2

begin

 var seq := readseqreal(readinteger('Введите n:')).ToArray;

 seq.Min.Println;

 seq.Max.Println;

end.