Cho 1 dãy số gồm n số nguyên, hãy viết ct tìm trong dãy đó số có nhiều ước nhất. help vs

0 bình luận về “Cho 1 dãy số gồm n số nguyên, hãy viết ct tìm trong dãy đó số có nhiều ước nhất. help vs”

1. uses crt;
   var n,i,j,d,max,vt:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            d:=0;
            for j:=1 to a[i] do if a[i] mod j=0 then inc(d);
            if d>max then begin max:=D; vt:=i; end;
         end;
      writeln(a[vt]);
   readln;
   end.

   Bình luận

2. uses crt;
   var max,n,i,maxCs: longint;
        a: array[1..1000000] of longint;
   function tongUoc(n: longint): longint;
     var i,cs: longint;
   begin
     cs:=0;
     for i:=1 to n do
       if n mod i=0 then inc(cs);
     exit(cs);
   end;
   Begin
     readln(n);
     for i:=1 to n do
       readln(a[i]);
     max:=0;
     for i:=1 to n do
         if tongUoc(a[i])> max then
           begin
             max:= tongUoc(a[i]);
             maxCs:= a[i];
           end;
     write(maxCs);
     readln;
   End.

   Bình luận