viết chương trình nhập vào 1 dãy số nguyên in ra màn hình các số không trùng nhau

0 bình luận về “viết chương trình nhập vào 1 dãy số nguyên in ra màn hình các số không trùng nhau”

1. //bạn dùng một mảng tính tổng số lần xuất hiện của các số trong dãy

   program sokhongtrung;

   var n, i, j, tam: integer;

         A, B: array[1..100] of integer;

   begin

            fillchar(B, sizeof(B), 0);    // Khởi tạo tất cả giá trị mảng đánh dấu B = 0

            readln(n);                           // Người dùng nhập n và n số nguyên

            for i:=1 to n do               

                   read(a[i]);

            writeln();

            for i:=1 to n-1 do                  // Sắp xếp mảng n theo thứ tự tăng dần

                   for j:=i+1 to n do

                            if a[i] > a[j] then

                                    begin

                                            a[i] := tam;

                                            a[i] := a[j];

                                            a[j] := tam;

                                     end;

        for i:=1 to n do

                   B[i] := B[i] + 1;

        for i:= 1 to a[n] do

                   if B[i] = 1 then write(B[i], ”  “);

        readln;

   end.

   Thấy hay thì vote 5* nha!

   Bình luận

2. uses crt;
   var n,i,j,kt:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
      for i:=1 to n do
         begin
            kt:=0;
            for j:=1 to i-1 do if a[i]=a[j] then inc(kt);
            if kt=0 then writeln(a[i]);
         end;
   readln;
   end.

   Bình luận