§ 8. Структурированные типы данных. Массивы ГДЗ по Информатике 11 класс. Босова.
10. Дано натуральное десятичное число n <= 32 000. Напишите программу, в которой:
1) из цифр данного числа формируется одномерный целочисленный массив;
2) определяются наибольшая и наименьшая цифры данного числа;
3) находятся сумма и произведение цифр, образующих данное число.
Ответ
Если число < 32000, значит в нем не больше пяти цифр. Тогда объявляете массив
D : array[1..5] of Integer;
и присваиваете всем элементам значение -1. Затем в цикле выделяете цифры числа.
i :=0;
while n > 0 do begin
Inc(i);
D[i] := n mod 10;
n := n div 10;
end;
Все, массив сформирован. Далее находите сумму и произведение элементов
S := 0;
P := 1;
while i > 0 do begin
S := S + D[i];
P := P * D[i];
Dec(i);
end;