xoa phan tu trong day'; writeln'6.
Trang 1program mang_mot_chieu;
uses crt;
type mang=array[1 100] of integer;
var
a:mang;
i,n,x,cl,vt:integer;
kt:boolean;
procedure nhap(var a:mang; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('nhap phan tu thu a[',i,']:');
readln(a[i]);
end;
end;
{========================================================} procedure xuat(a:mang);
var i:integer;
begin
for i:=1 to n do
write(a[i]:3);
writeln;
end;
{==========================================================} procedure tang(var a:mang);
var i,j,t:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
{============================================================} procedure giam(var a:mang);
var i,j,t:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
Trang 2t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
{==============================================================} function tim(x:integer;a:mang):boolean;
var
kt:boolean;
i:integer;
begin
i:=1;
kt:=false;
while (i<=n) and (not kt) do
begin
if x=a[i] then kt:=true;
i:=i+1;
end;
tim:=kt;
end;
{==================================================================} procedure xoa(var a:mang; vt:integer);
var
i:integer;
begin
for n:=vt to n do
a[i]:=n;
a[i]:=a[i+1];
n:=n-1;
end;
{====================================================================} procedure them(var a:mang; x,vt:integer);
var
i:integer;
begin
for i:=n+1 downto vt do
a[i]:=a[i-1];
n:=n+1;
a[vt]:=x;
end;
{=============================menu==================================} begin
clrscr;
{==========================menu=============================}
repeat
Trang 3writeln('==============menu=================='); writeln('0 thoat');
writeln('1 nhap va xuat');
writeln('2 sap xep tang dan');
writeln('3 sap xep giam dan');
writeln('4 tim day so');
writeln('5 xoa phan tu trong day');
writeln('6 them 1 phan tu vao day');
write('nhap vao chon lua:'); readln(cl);
case cl of
1:
begin
write('nhap vao gia trin:'); readln(n);
nhap(a,n);
xuat(a);
readln;
clrscr;
end;
2:
begin
tang(a);
xuat(a);
readln;
clrscr;
end;
3:
begin
giam(a);
xuat(a);
readln;
clrscr;
end;
4:
begin
write('nhap vao gia tri can tim:');readln(x);
tim(x,a);
xuat(a);
if tim(x,a)=true then
write('tim thay',x,'trong mang')
else write('khong tim thay',x,'trong mang');
readln;
clrscr;
end;
5:
begin
Trang 4write('nhap vao vi tri can xoa:');
readln(vt);
xoa(a,vt);
xuat(a);
readln;
clrscr;
end;
6:
begin
write('nhap vao gia tri x can them:'); readln(x); write('nhap vao vi tri can them:'); readln(vt); them(a,x,vt);
xuat(a);
readln;
clrscr;
end;
end;
until cl=0;
readln;
end.