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).
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.
By Reese
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.