program tinhtchboi3;

uses crt;

var i,n : integer;

s:real;

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

begin

clrscr;

s:=0;

writeln('nhap so phan tu cua day so A',n); readln(n);

for i:= 1 to n do

begin

write('A[',i,']=');readln(A[i]);

end;

if a[i] >= 0 then

if (a[i] mod 3 ) then

begin

s:=S+a[i];

Writeln('tong cac so khong am la boi cua 3 la',S);

readln;

end

else

write('day khong phai phai la so phu hop voi dieu kien cua de bai ');

readln

end.

$\text{Thuật toán tính tổng các số không âm là bội của 3 :}$

$\text{- Bước 1 : Nhập số N và dãy A1, A2, ... , AN}$

$\text{- Bước 2 : i ← 0, S ← 0}$

$\text{- Bước 3 : Nếu i > N thì đưa ra giá trị S rồi kết thúc}$

$\text{- Bước 4 :}$

$\text{- Bước 4.1 : Nếu A[i] > 0 và A[i] mod 3 = 0 thì S ← S + A[i]}$

$\text{- Bước 4.2 : i ← i + 1 quay lại bước 3}$