Viết chương trình nhập các phần tử và số phần tử trong dãy số. In ra màn hình là các số không thuộc dãy số đó.
VD: Nhập vào: 10.
3; 3; 8; 9; 5; 10; 10; 9; 1; 5.
In ra màn hình: có 4 số không có trong dãy là 2; 4; 6; 7.
( hiện tại mình cần đoạn cuối nên các bạn chỉ cần ghi đoạn cuối thôi nha các bạn).
uses crt;
var n,i,j,kt,m:longint; a:array[1..100000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
for i:=1 to n do
begin
kt:=0;
for j:=1 to n do if i=a[j] then kt:=1;
if kt=0 then write(i,’; ‘) else inc(m);
end;
if m=n then writeln(‘Khong co so nao khong thuoc day!’);
readln
end.
////////////////////////////////////////////////////
program oken;
uses crt;
var n,dem,max: integer;
i,j: integer;
kt: boolean;
a:array[1..100]of integer;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘);readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘);readln(a[i]);
end;
dem:=0; max:=a[1];
for i:=2 to n do
if max<a[i] then
max:=a[i];
write(‘Cac so con thieu: ‘);
for i:=1 to max do
begin
kt:=true;
for j:=1 to n do
if a[j]=i then
kt:=false;
if (kt=true) then
write(i,’ ‘)
end;
writeln; writeln(‘Nhan Enter de ket thuc’);
readln;
end.