Advertisement
Graf_Rav

Untitled

Jan 14th, 2018
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.71 KB | None | 0 0
  1. Program AddNums(output);
  2. var n,i,j,a,ans,minim:integer;
  3.     xyesos: array of integer;
  4. begin
  5.     SetLength(Xyesos, 10);
  6.     for i:=0 to 9 do
  7.         xyesos[i]:=0;
  8.     readln(n);
  9.     for i:=1 to n do begin
  10.         readln(a);
  11.         while a>0 do begin
  12.             xyesos[a mod 10]+=1;
  13.             a:=a div 10;
  14.         end;
  15.     end;
  16.     for i:=0 to 9 do begin
  17.         minim:=$7fff;
  18.         ans:=-1;
  19.         for j:=9 downto 0 do begin
  20.             if (xyesos[J]<minim) and (xyesos[j]>0) then begin
  21.                 minim:=xyesos[j];
  22.                 ans:=j;
  23.             end;
  24.         end;
  25.         if ans>-1 then begin
  26.             write(ans,' ');
  27.             xyesos[ans]:=0;
  28.         end;
  29.     end;
  30. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement