Lập trình đọc dãy n số nguyên, sau đó làm các việc sau: a) Sắp xếp các số chẵn lên đầu dãy. b) Sắp xếp các số chia hết cho 5 lên đầu dãy. c) Sắp xếp c

0 bình luận về “Lập trình đọc dãy n số nguyên, sau đó làm các việc sau: a) Sắp xếp các số chẵn lên đầu dãy. b) Sắp xếp các số chia hết cho 5 lên đầu dãy. c) Sắp xếp c”

1. uses crt;
   var n,i:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘n=’);READLN(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
      writeln(‘Cau a:’);
         for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘);
         for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘);
         writeln;
      writeln(‘Cau b:’);
         for i:=1 to n do if a[i] mod 5=0 then write(a[i],’ ‘);
         for i:=1 to n do if a[i] mod 5<>0 then write(a[i],’ ‘);
         writeln;
      writeln(‘Cau c:’);
         for i:=1 to n do if (a[i] mod 2=0)or(a[i]>9) then write(a[i],’ ‘);
         for i:=1 to n do if (a[i] mod 2=1)or(a[i]<9) then write(a[i],’ ‘);
   readln
   end.

   Bình luận