Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function Sod(n:integer):integer:=
  n.ToString.Select(c->StrToInt(c)).Sum;

begin
  var n:=ReadInteger('n=');
  var max:=0;
  var m,mmax:integer;
  for var i:=1 to n do begin
    m:=ReadInteger('Число '+IntToStr(i)+': ');
    var s:=Sod(m);
    if s>max then begin max:=s; mmax:=m end
    end;
  Writeln('Максимальная сумма ',max,' в числе ',mmax)
end.

Тестовое решение:
n= 5
Число 1:  3243
Число 2:  10000004
Число 3:  23536
Число 4:  9942
Число 5:  43354
Максимальная сумма 24 в числе 9942