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.
