program docao_max;

uses crt;

var A:array[1..1000] of integer;

      n,i,max:integer;

function dc(n:integer):integer;

begin

     dc:=0;

     while n>0 do

          begin

               dc:=dc+n mod 10;

               n:=n div 10;

          end;

end;

BEGIN

     clrscr;

     write('Nhap so luong phan tu n: ');   readln(n);

     max:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(A[i]);

               if dc(A[i])>max then max:=dc(A[i]);

          end;

     write('Do cao lon nhat trong day la: ',max);

     readln;

end.

b1: nhập số phần tử của mảng

b2: nhập giá trị cho từng phần tử của mảng

b3: xét từng giá trị của các phần tử và tính tổng các chữ số của nó nếu tổng lớn hơn max thì max:=tổng các chữ số của nó

b4: in kết quả ra màn hình và kết thúc thuật toán