viết chương trình làm việc với dãy số,nhập giá trị n ( n thuộc n*) là các phần tử của dãy số, nhập vào các phần tử của dãy, hiển thị ra màn hình dãy số trên, tính tổng các phần tử của dãy và hiển thị tổng này ra màn hình, hiển thị các phần tử là bội của 3 và tổng của chúng ra màn hình, nhập vào một số x thông báo x có thuộc dãy số hay không ?
Program HOC24;
var d,n,i,x: integer;
t,t1: longint;
begin
write('Nhap so phan tu : '); readln(n);
t:=0; t1:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
t:=t+a[i];
if a[i] mod 3=0 then t1:=t1+a[i];
end;
write('Day so tren la : ');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('Tong cac phan tu cua day la :',t);
write('Cac phan tu la boi cua 3 la : ');
for i:=1 to n do if a[i] mod 3=0 then write(a[i]);
writeln;
writeln('Tong cac phan tu la boi cua 3 la : ',t1);
write('Nhap x='); readln(x);
d:=0;
for i:=1 to n do if x=a[i] then d:=d+1;
if d>0 then write(x,' thuoc day so') else write(x,' khong thuoc day so');
readln
end.