Bài 1

SUBMITTED BY: Guest

DATE: May 10, 2015, 1:02 p.m.

FORMAT: Text only

SIZE: 544 Bytes

Raw Download

HITS: 1071

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