Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:15 p.m.

FORMAT: Text only

SIZE: 578 Bytes

Raw Download

HITS: 838

Report
  1. USES crt;
  2. VAR a,b:ARRAY[1..1000] OF LONGINT;
  3. i,j,n,k,l,tg:LONGINT;
  4. PROCEDURE Doicho;
  5. BEGIN
  6. tg:=a[j];
  7. a[j]:=a[j+1];
  8. a[j+1]:=tg;
  9. END;
  10. BEGIN
  11. Write('Nhap n : ');
  12. Readln(n);
  13. FOR i:=1 TO n DO
  14. BEGIN
  15. Write('a',i,' : ');
  16. Readln(a[i]);
  17. END;
  18. FOR i:=1 TO n-1 DO
  19. FOR j:=1 TO n-1 DO
  20. IF a[j] > a[j+1] THEN
  21. doicho;
  22. k:=0;l:=n;
  23. FOR i:=1 TO n DO
  24. IF a[i] MOD 2 <> 0 THEN
  25. BEGIN
  26. inc(k);
  27. b[k]:=a[i];
  28. END ELSE
  29. BEGIN
  30. dec(l);
  31. b[l]:=a[i];
  32. END;
  33. FOR i:=1 TO n DO
  34. Write(b[i]:3);
  35. Readln;
  36. END.
comments powered by Disqus