Ввести 3 числа найти их удвоенное произведение

Question

Информатика: Ввести 3 числа найти их удвоенное произведение

lizaaf · Accepted Answer

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

MOGZ ответил