Задание 10 Параграф 8 ГДЗ Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова 11 класс, Бином:

10. Дано натуральное десятичное число п

1) из цифр данного числа формируется одномерный целочисленный массив;

2) определяются наибольшая и наименьшая цифры данного числа;

3) находятся сумма и произведение цифр, образующих данное число.

var

a: array [1..5] of integer;

x, i, max, min, sum, pr, k: integer;

begin

readln(x);

i := 1;

sum := 0; pr := 1;

//формирование массива из цифр числа

//и вычисление суммы и произведения цифр числа

while x 0 do

begin

a[i] := x mod 10;

sum := sum + a[i];

pr := pr * a[i];

x := x div 10;

i := i + 1

end;

//-----------------------------------

//определение max и min

k := i - 1;//количество цифр в числе

max := a[1];

min := a[1];

for i := 2 to k do

begin

if a[i] > max then max := a[i];

if a[i]

end;

Writeln(tasksum=task, sum, task pr=task, pr, task max=task, max, task min=task, min);

end.

Программа: Z_8_10.pas (ссылка ниже)