作业帮一道pascal题目啊
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/19 07:06:12
一道pascal题目啊
两数组最短距离【short.pas】
【问题描述】
已知元素从小到大排列的两个数组,请写出一个程序算出两个数组彼此之间差的绝对值中最小的一个,这叫做数组的距离.
【输入文件】short.in
第一行为两个整数m,n（1≤m,n≤1000）,分别代表两个数组的长度.
第二行有m个整数（每个整数不超过109）.
第三行有n个整数（每个整数不超过109）.
【输出文件】short.out
数组的最短距离
【样例文件】
short.in
5 5
1 2 3 4 5
6 7 8 9 10
short.out
1
【样例说明】
在本样例中,第一个数组中的数5与第二个数组中的数6之前差的绝对值为1,是最小的差值,所以这两个数组的最短距离即为1.
两数组最短距离【short.pas】
【问题描述】
已知元素从小到大排列的两个数组,请写出一个程序算出两个数组彼此之间差的绝对值中最小的一个,这叫做数组的距离.
【输入文件】short.in
第一行为两个整数m,n（1≤m,n≤1000）,分别代表两个数组的长度.
第二行有m个整数（每个整数不超过109）.
第三行有n个整数（每个整数不超过109）.
【输出文件】short.out
数组的最短距离
【样例文件】
short.in
5 5
1 2 3 4 5
6 7 8 9 10
short.out
1
【样例说明】
在本样例中,第一个数组中的数5与第二个数组中的数6之前差的绝对值为1,是最小的差值,所以这两个数组的最短距离即为1.
数据量不大,直接枚举啦!
var
a,b:array[1..1001]of integer;
i,j,min,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to m do
read(b[m]);
min:=maxint;
for i:=1 to n do
for j:=1 to m do
if abs(a[i]-b[j])
var
a,b:array[1..1001]of integer;
i,j,min,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to m do
read(b[m]);
min:=maxint;
for i:=1 to n do
for j:=1 to m do
if abs(a[i]-b[j])