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.
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.
