viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này

0 bình luận về “viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này”

1. program in_khac;

   uses crt;

   var A:array[1..1000] of integer;

        n,i,j,tg:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          for i:=1 to n-1 do

                 for j:=i+1 to n do

                        if A[i]>A[j] then

                               begin

                                      tg:=A[i];

                                      A[i]:=A[j];

                                      A[j]:=tg;

                               end;

          write(‘Cac gia tri khac nhau la: ‘);

          for i:=1 to n do

                 if A[i]<>A[i+1] then write(A[i],’ ‘);

          readln;

   end.

   Bình luận

2. program chuongtrinh;

   uses crt;

   var A:array[1..10000] of integer;

        n,i,j,tg:integer;

   begin

          clrscr;

          write(‘Nhap gia tri n:  ‘);  readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          for i:=1 to n-1 do

                 for j:=i+1 to n do

                        if A[i]>A[j] then

                               begin

                                      tg:=A[i];

                                      A[i]:=A[j];

                                      A[j]:=tg;

                               end;

          write(‘Cac gia tri khac nhau la:  ‘);

          for i:=1 to n do

                 if A[i]<>A[i+1] then write(A[i],’ ‘);

          readln;

   end.

   Bình luận