Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program AddNums(output);
- var n,i,j,a,ans,minim:integer;
- xyesos: array of integer;
- begin
- SetLength(Xyesos, 10);
- for i:=0 to 9 do
- xyesos[i]:=0;
- readln(n);
- for i:=1 to n do begin
- readln(a);
- while a>0 do begin
- xyesos[a mod 10]+=1;
- a:=a div 10;
- end;
- end;
- for i:=0 to 9 do begin
- minim:=$7fff;
- ans:=-1;
- for j:=9 downto 0 do begin
- if (xyesos[J]<minim) and (xyesos[j]>0) then begin
- minim:=xyesos[j];
- ans:=j;
- end;
- end;
- if ans>-1 then begin
- write(ans,' ');
- xyesos[ans]:=0;
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement