, с объяснением! (PascalABC.net) Дано натуральное десятичное число n <= 32 000. Напишите
программу, в которой:
1) из цифр данного числа формируется одномерный целочисленный массив;
2) определяются наибольшая и наименьшая цифры данного
числа;
3) находятся сумма и произведение цифр, образующих данное число.

Программа:

Pascal:

begin

 var n := ReadInteger.ToString.ToArray.ConvertAll(ch->ch.ToDigit); // создаём переменную n, в которую вводится число и его цифры конвертируются в массив

 writeln(n);  // вывод массива

 writeln(n.Max);  // вывод максимального элемента массива

 writeln(n.Min);  // вывод минимального элемента массива

 writeln(n.Sum);  // вывод суммы элементов массива

 writeln(n.Product);  // вывод произведения элементов массива

end.