Uses crt;
var A:Array[0..50]of integer;
i,n,x,y:integer;
begin
clrscr;
randomize;
write('nhap so phan tu:');readln(n);
for i:=1 to n do
A[i]:=random(300)-random(300);
for i:=1 to n do write(A[i],'|');writeln;
write('nhap vi tri can xoa:');readln(x);
for i:=x to n do
A[i]:=A[i+1];
for i:=1 to n-1 do
write(A[i],'|');
readln
end.