, с объяснением! (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.