一道pascal题目啊两数组最短距离【short.pas】【问题描述】已知元素从小到大排列的两个数组,请写出一个程序算出两个数组彼此之间差的绝对值中最小的一个,这叫做数组的距离.【输入文件】s
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/14 10:57:40
一道pascal题目啊两数组最短距离【short.pas】【问题描述】已知元素从小到大排列的两个数组,请写出一个程序算出两个数组彼此之间差的绝对值中最小的一个,这叫做数组的距离.【输入文件】s
一道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.
一道pascal题目啊两数组最短距离【short.pas】【问题描述】已知元素从小到大排列的两个数组,请写出一个程序算出两个数组彼此之间差的绝对值中最小的一个,这叫做数组的距离.【输入文件】s
数据量不大,直接枚举啦!
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])