Question

Viết chương trình nhập 1 số nguyên có n phần tử. Sau đó xét xem dãy số đó có bao nhiêu giá trị khác nhau 

Answer 1

program Hoc;

var

     n, i, j, dem: integer;

     a: array[1..100] of integer;

begin

     clrscr;

     writeln('Nhap vao so phan tu trong day: ');

     readln(n);

     writeln('Nhap cac phan tu cua day: ');

     for i:=1 to n do

     begin

          readln(a[i]);

     end;

     dem:=0;

     for i:=1 to n do

     begin

          for j:=1 to i-1 do

          begin

               if(a[i] = a[j]) then

               begin

                    break;

               end;

          end;

          if(j = i-1) then

          begin

               dem:= dem+1;

          end;

     end;

     writeln('So gia tri khac nhau trong day la: ', dem);

     readln;

end.