Question

两个pascal问题急求！

一：
【试题描述】
把一个数组的第x个位置的元素删除掉
【输入描述】
有三行
第一行有一个整数n
第二行有n个整数
第三行有一个整数x，为要删除的位置
【输出描述】
输出更新后的数组
【输入样例】
5
1 2 3 4 5
3
【输出样例】
1 2 4 5

二：【试题描述】
在一个数组的第x个位置插入一个新的数y
【输入描述】
有四行
第一行有一个整数n
第二行有n个整数
第三行有一个整数x，为要插入的位置
第四行有一个整数y，为要插入的整数
【输出描述】
更新后的数组
【输入样例】
5
7 2 3 4 5
2
9
【输出样例】
7 9 2 3 4 5

Answer 1

一：
program aaa;
var
a:array[1..maxn]of longint;
n,i,x:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
end;
readln;
readln(x);
for i:=1 to x-1 do
write(a[i],' ');
for i:=x+1 to n-1 do
write(a[i],' ');
writeln(a[n]);
readln;
end.

二：
program aaa;
var
a:array[1..1000]of longint;
n,i,x,y:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
end;
readln;
readln(x);
readln(y);
for i:=1 to x-1 do
write(a[i],' ');
write(y,' ');
for i:=x to n-1 do
write(a[i],' ');
writeln(a[n]);
readln;
end.
注：maxn根据数据大小更改。

Answer 2

var
a:array[1..20] of integer;
n,i,x:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(x);
for i:=1 to n do if i<>x then write(a[i],' ');
end.

var
a:array[1..20]of integer;
i,n,x,y:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(x);readln(y);
for i:=1 to n do
if i=x then write(y,' ',a[i],' ') else write(a[i],' ');
end.