Bài 1: Cho hai vòng lặp lồng vào nhao với i là biến đếm của vòng lặp ngoài. J là biến đếm của vòng lặp trong lần lượt so sánh a[i] và a[j] để sắp xếp lại vị trí

Code

Program sapxep;
Var a:array[1..100] of integer;
i,j,n,t:integer;
BEGIN

clrscr;
Write('Nhap N: '); Readln(n);

For i:=1 to n do
begin
    Write('a[',i,']= ');
    Readln(a[i]);
end;

For i:= 1 to n - 1 do
    For j := i+1 to n do
    begin
        if a[i]>a[j] then begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
        end;
    end;
Write('Day da duoc sap xep:');
For i:= 1 to n do Write(a[i],' ');
Readln;
END.

Bài 2: Dùng phép toán and để tìm số chia hết cho 2 và năm. Nếu (a[i] mod 2 = 0) and (a[i] mod 5 = 0) thì a[i] là số chia hết  cho 2 và 5.

Phép toán A and B trả về true khi A= true và B= true

Code

Program timso;
Var a:array[1..100] of integer;
i,n:integer;
BEGIN
clrscr;
Write('Nhap N: '); Readln(n);

For i:=1 to n do
begin
    Write('a[',i,']= ');
    Readln(a[i]);
end;

Write('Cac so chia het cho 2 va 5 la: ');
For i:= 1 to n do if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then write(a[i]:4);
Readln;
END.