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 ?
uses crt;
var n,i,s,s1,x:longint; a:array[1..1000000]of longint; kt:boolean;
begin
clrscr;
repeat
write(‘n=’);readln(n);
until n>0;
kt:=true;
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);read(a[i]);
inc(s,a[i]);
if a[i] mod 3=0 then inc(s1,a[i]);
end;
write(‘Day so: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘Tong: ‘,s);
write(‘Boi 3: ‘);
for i:=1 to n do
if a[i] mod 3=0 then write(a[i],’ ‘); writeln;
writeln(‘Tong: ‘,s1);
write(‘x=’);readln(x);
for i:=a[1] to a[n] do
if x<>a[i] then kt:=false;
if kt then writeln(‘Co’) else writeln(‘Khong’);
readln
end.
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,x:integer;
S,Sb:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
for i:=1 to n do
begin
S:=S+A[i];
if A[i] mod 3=0 then Sb:=Sb+A[i];
end;
write(‘Day so tren la: ‘);
for i:=1 to n do
write(A[i]:3);
writeln;
writeln(‘Tong la: ‘,S);
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]:3);
writeln;
writeln(‘Tong la: ‘,Sb);
write(‘Nhap so x: ‘); readln(x);
for i:=1 to n do
if A[i]=x then write(x’, thuoc day so tren’)
else write(x’, khong thuoc day so tren’);
readln;
end.
Học tốt!