Vct nhập vào một mảng,tìm ra số có tích các chữ số lớn nhất(pascal)

0 bình luận về “Vct nhập vào một mảng,tìm ra số có tích các chữ số lớn nhất(pascal)”

1. uses crt;
   var n,i,m,max:longint; a:array[1..10000000]of longint;
   function tich(a:longint):longint;
   begin
      tich:=1;
      repeat
         tich:=tich*(a mod 10);
         a:=a div 10;
      until a=0;
   end;
   begin
   clrscr;
      write(‘Nhap so phan tu: ‘);readln(n); 
      for i:=1 to n Do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
            if tich(a[i])>max then 
               begin
                  max:=tich(a[i]);
                  m:=a[i];
               end;
         end;
      writeln(‘So co cac tich cac chu so lon nhat ‘,m);
   readln
   end.

   Bình luận

2. program tim_so;

   uses crt;

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

        n,max,i,j,ptu:integer;

   function tich(k:integer):integer;

   begin

          tich:=1;

          while n>0 do

                 begin

                        tich:=tich*(n mod 10);

                        n:=n div 10;

                 end;

   end;

   BEGIN

          clrscr;

          write(‘Nhap so luong: ‘);   readln(n);

          write(‘A[1]= ‘);   readln(A[1])

          max:=tich(A[1]);   ptu:=A[1];

          for i:=2 to n do

                 begin

                        write(‘A[‘,i,’]= ‘);   readln(A[i]);

                        if tich(A[i])>max then

                               begin

                                      max:=tich(A[i]);

                                      ptu:=A[i];

                               end;

                 end;

          write(‘So co tich lon nhat la: ‘,ptu);

          readln;

   end.

   

   Bình luận