Bài 3

SUBMITTED BY: Guest

DATE: Nov. 5, 2014, 2:44 p.m.

FORMAT: Text only

SIZE: 425 Bytes

Raw Download

HITS: 776

Report
  1. PROGRAM Xoaso;
  2. USES crt;
  3. VAR f1,f2 : TEXT ;
  4. x,max: STRING;
  5. n,k,j,i,maxi : BYTE;
  6. BEGIN
  7. clrscr;
  8. assign(f1,'XOASO.INP');
  9. reset(f1);
  10. assign(f2,'XOASO.OUT');
  11. rewrite(f2);
  12. Readln(f1,x,k);
  13. FOR j:=1 TO k DO
  14. BEGIN
  15. max:=x[1];
  16. FOR i:= 1 TO length(x) DO
  17. IF x[i] > max THEN BEGIN max:= x[i]; maxi:=i; END;
  18. delete(x,maxi,1);
  19. END;
  20. Write(f2,x);
  21. close(f1);
  22. close(f2);
  23. END.
comments powered by Disqus