Question

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

Answer 1

Program NumberAnalysis; const   MaxDigits = 5; // Максимальное количество цифр в числе var   n, i, digit, maxDigit, minDigit, sum, product: integer;   digits: array[1..MaxDigits] of integer; begin   writeln('Введите натуральное число (<= 32000): ');   readln(n);
     // Инициализация переменных   maxDigit := 0;   minDigit := 9;   sum := 0;   product := 1;
     // Формирование массива цифр и вычисление нужных параметров   i := MaxDigits;   while n > 0 do   begin     digit := n mod 10; // Получение последней цифры числа     digits[i] := digit; // Запись цифры в массив     if digit > maxDigit then       maxDigit := digit; // Обновление наибольшей цифры     if digit < minDigit then       minDigit := digit; // Обновление наименьшей цифры     sum := sum + digit; // Добавление цифры к сумме     product := product * digit; // Умножение цифры на произведение     n := n div 10; // Удаление последней цифры числа     i := i - 1;   end;
     writeln('Массив цифр числа:');   for i := 1 to MaxDigits do     writeln('Цифра ', i, ': ', digits[i]);
     writeln('Наибольшая цифра: ', maxDigit);   writeln('Наименьшая цифра: ', minDigit);   writeln('Сумма цифр: ', sum);   writeln('Произведение цифр: ', product); end.