program khac_nhau;

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.

Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End

chúc bạn học tốt ⇒ điểm cao nhé ∛ !!!