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

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

Задать свой вопрос
Люда Вигман
Растолкуйте подробнее, что Вы имеет в виду? Вот массив из пяти частей, в нем числа 18, 62, 3, 17, 54. Какие числа в данном случае войдут в сумму и почему?
Эльвира Олесюк
18 максимальная цифра 8 62 наибольшая 6 ... 8+6+3+7+5=32
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 lt; 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



Арсений Тетцнер
сказано же что необходимо функцию написать, но всё одинаково спасибо
Ольга Бурштина
Поправил, никаких заморочек
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт