Question

Паскаль
Написать функцию нахождения суммы максимальных цифр элементов массива. Массив состоит из натуральных чисел. Помогите пожалуйста

Answer 1

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