Паскаль Написать функцию нахождения суммы максимальных цифр элементов массива. Массив состоит из натуральных чисел. Помогите пожалуйста
Паскаль
Написать функцию нахождения суммы максимальных цифр элементов массива. Массив состоит из натуральных чисел. Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 10;
type
Vector = array[1..n] of integer;
function SumDig(a: Vector): integer;
var
i, m, d, s, max: integer;
begin
s := 0;
for i := 1 to n do
begin
m := a[i];
max := -1;
repeat
d := (m mod 10);
if max < d then max := d;
m := m div 10
until m = 0;
s := s + max
end;
SumDig := s
end;
var
i: integer;
M: Vector;
begin
Writeln('Введите ', n, ' чисел:');
for i := 1 to n do Read(M[i]);
Writeln('Сумма максимальных цифр всех чисел равна ', SumDig(M))
end.
Тестовое решение:
Введите 10 чисел:
613 269 839 10 575 569 812 56 401 616
Сумма максимальных цифр всех чисел равна 65
Не нашли ответ?
Похожие вопросы