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

Question

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

Comments

Объясните подробнее, что Вы имеет в виду? Вот массив из пяти элементов, в нем числа 18, 62, 3, 17, 54. Какие цифры в данном случае войдут в сумму и почему?

---

18 максимальная цифра 8 62 максимальная 6 ... 8+6+3+7+5=32

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

Comments

сказано же что нужно функцию написать, но всё равно спасибо

---

Исправил, никаких проблем