// 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.
<u><em>Тестовое решение:</em></u>
n= 5
Число 1: 3243
Число 2: 10000004
Число 3: 23536
Число 4: 9942
Число 5: 43354
Максимальная сумма 24 в числе 9942
Uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.