Thuật toán:

B1: Nhập N; a1, a2, ..., aN; (N > 0)

B2: i $\leftarrow$ 1;

B3: Nếu ai $\,\vdots\,$ 3 thì in ai ra màn hình;

B4: i $\leftarrow$ i+1;

B5: Nếu i $\le$ N thì chuyển đến B3;

B6: Kết thúc chương trình.

Thuật toán:

B1: Nhập n và dãy a có n phần tử

B2: i←1;

B3: Nếu `a_i` chia hết cho 3 (a[i] mod 3=0) thì in `M_i` ra màn hình

B4: i←i+1; Nếu i<=n thì quay lại B3;

B5: Kết thúc.

Cách hiểu thông thường

`-` Ban đầu nhập n và dãy số a

`-` Cho một vòng for có biến i chạy từ 1 đến n và kiểm tra nếu a[i] mod 3=0 thì in a[i] ra màn hình.

Chương trình:

program bai_giai;
uses crt;
var a:array[1..10000] of integer;
    n,i: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 do
        if a[i] mod 3=0 then write(a[i],' ');
    readln;
end.