Giúp em với nhanh tay em vote 5* và ctrlhnh ạ Nhập vào một mảng,tìm ra số có tổng các chữ số lớn nhất Ví dụ: nhập số lương là: 3 A[1]:=32 A[2]:=24 A[3

0 bình luận về “Giúp em với nhanh tay em vote 5* và ctrlhnh ạ Nhập vào một mảng,tìm ra số có tổng các chữ số lớn nhất Ví dụ: nhập số lương là: 3 A[1]:=32 A[2]:=24 A[3”

1. Program BT;
   Var n,i,max,ln,tong,k :longint;
       a,b : array [1..100] of longint;
   Begin
   repeat
   Write (‘Nhap N : ‘);REadln(n);
   until n > 0;
   max := 0;
   For i := 1 to n do
   Begin
   Write (‘A[‘,i,’]= ‘);Readln(A[i]);
   b[I] := a[i];
   while a[i] <> 0 do
   Begin
   k := a[i] mod 10;
   tong := tong +k;
   a[i] := a[i] div 10;
   end;
   If max <= tong then 
   Begin
   max := tong ;
   ln := b[i];
   end;
   k := 0;
   tong := 0;
   end;
   Write (‘Lon nhat la : ‘,ln);
   end.

   Bình luận

2. uses crt;
   var n,m,i:longint; a:array[1..100000]of longint;
   function tong(a:longint):longint;
   begin
      tong:=0;
      repeat
         inc(tong,a mod 10);
         a:=a div 10;
      until a=0;
   end;
   begin
   clrscr;
      write(‘Nhap so luong la: ‘);readln(n);
      for i:=1 to n Do 
         begin
           write(‘A[‘,i,’]:=’);readln(a[i]);
           if tong(A[i])>tong(m) then m:=a[i];
         end;
      writeln(m);
   readln 
   end.

   Bình luận