Помогите с процедурами и функциями

[мистерикс]

Помогите с процедурами и функциями

Нужно решить следущую задачку двумя вариантами: 1) с помощью процедур.
2) с помощью функций
Задачка нужна в abcpascal`е. Всем заранее спасибо!
Дано n целых чисел. Найти среди них число , у которого сумма цифр имеет максимальное значение.

 

[Vladimir_S]

Нужно решить следущую задачку двумя вариантами: 1) с помощью процедур.
2) с помощью функций
Задачка нужна в abcpascal`е. Всем заранее спасибо!
Дано n целых чисел. Найти среди них число , у которого сумма цифр имеет максимальное значение.

Легко.

Const
 N=40;

Var
 A:Array[1..N] of Integer;
 i,MaxSum,Sum,Imax:Integer;

Procedure Sum_of_Digits(Q:Integer; var Sm:Integer);
var
 m,S,P:integer;
begin
 P:=Q;
 S:=0;
 repeat
  m:=P mod 10;
  Inc(S,m);
  P:=P div 10;
 until P=0;
 Sm:=S;
end;

Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=Random(30000);
   write(A[i]:8);
  end;
 writeln;
 writeln;
 MaxSum:=0;
 for i:=1 to N do
  begin
   Sum_of_Digits(A[i],Sum);
   if Sum>MaxSum then
    begin
     Imax:=i;
     MaxSum:=Sum;
    end;
  end;
 Writeln('Maximal sum (',MaxSum,') has the element N',Imax,' equal to ',A[Imax]);
 Readln
End.

Const
 N=40;

Var
 A:Array[1..N] of Integer;
 i,MaxSum,Imax:Integer;

Function Sum(Q:Integer):Integer;
var
 m,S,P:integer;
begin
 P:=Q;
 S:=0;
 repeat
  m:=P mod 10;
  Inc(S,m);
  P:=P div 10;
 until P=0;
 Sum:=S;
end;

Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=Random(30000);
   write(A[i]:8);
  end;
 writeln;
 writeln;
 MaxSum:=0;
 for i:=1 to N do
  if Sum(A[i])>MaxSum then
   begin
    Imax:=i;
    MaxSum:=Sum(A[i]);
   end;
 Writeln('Maximal sum (',MaxSum,') has the element N',Imax,' equal to ',A[Imax]);
 Readln
End.

Задачка нужна в abcpascal`е.

Извините - всякой дряни не держу. Это для Turbo (Free). За возможные глюки этой недоделки АВС не отвечаю.
По идее, должно работать.