Pascal语言编程告诉进问题描述给出N个整数X1、X2、X3,…,Xn,将这N个数从小到大排序为A1,A2,A3,…,An,记数列A1,A2,A3,…,An的基数项之和为P,偶数项之和为Q,令T=|P-Q|,求出T的值.输入格式(输入文件
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 00:14:29
![Pascal语言编程告诉进问题描述给出N个整数X1、X2、X3,…,Xn,将这N个数从小到大排序为A1,A2,A3,…,An,记数列A1,A2,A3,…,An的基数项之和为P,偶数项之和为Q,令T=|P-Q|,求出T的值.输入格式(输入文件](/uploads/image/z/6726460-4-0.jpg?t=Pascal%E8%AF%AD%E8%A8%80%E7%BC%96%E7%A8%8B%E5%91%8A%E8%AF%89%E8%BF%9B%E9%97%AE%E9%A2%98%E6%8F%8F%E8%BF%B0%E7%BB%99%E5%87%BAN%E4%B8%AA%E6%95%B4%E6%95%B0X1%E3%80%81X2%E3%80%81X3%2C%E2%80%A6%2CXn%2C%E5%B0%86%E8%BF%99N%E4%B8%AA%E6%95%B0%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%E4%B8%BAA1%2CA2%2CA3%2C%E2%80%A6%2CAn%2C%E8%AE%B0%E6%95%B0%E5%88%97A1%2CA2%2CA3%2C%E2%80%A6%2CAn%E7%9A%84%E5%9F%BA%E6%95%B0%E9%A1%B9%E4%B9%8B%E5%92%8C%E4%B8%BAP%2C%E5%81%B6%E6%95%B0%E9%A1%B9%E4%B9%8B%E5%92%8C%E4%B8%BAQ%2C%E4%BB%A4T%3D%EF%BD%9CP%EF%BC%8DQ%EF%BD%9C%2C%E6%B1%82%E5%87%BAT%E7%9A%84%E5%80%BC.%E8%BE%93%E5%85%A5%E6%A0%BC%E5%BC%8F%EF%BC%88%E8%BE%93%E5%85%A5%E6%96%87%E4%BB%B6)
Pascal语言编程告诉进问题描述给出N个整数X1、X2、X3,…,Xn,将这N个数从小到大排序为A1,A2,A3,…,An,记数列A1,A2,A3,…,An的基数项之和为P,偶数项之和为Q,令T=|P-Q|,求出T的值.输入格式(输入文件
Pascal语言编程告诉进
问题描述
给出N个整数X1、X2、X3,…,Xn,将这N个数从小到大排序为A1,A2,A3,…,An,记数列A1,A2,A3,…,An的基数项之和为P,偶数项之和为Q,令T=|P-Q|,求出T的值.
输入格式(输入文件名 simple.in)
输入文件的第1行为整数N(1≤N≤50000).
接下来的N行每行有一个整数,按顺序给出X1,X2,X3,…,Xn的值(|Xi|≤1000)
输出格式(输出文件名 simple.out)
给出整数T的值.
输入(simple.in) 输出(simple. out)
3
1
3
2 2
分析
数的数目不多(n=50000),可用快排.
求和最大值1000×50000=50000000,没超过32位最大值,可直接求和.
先排序,后分别求基数项和偶数项之和,求差即可.
麻烦高手帮帮忙~~
Pascal语言编程告诉进问题描述给出N个整数X1、X2、X3,…,Xn,将这N个数从小到大排序为A1,A2,A3,…,An,记数列A1,A2,A3,…,An的基数项之和为P,偶数项之和为Q,令T=|P-Q|,求出T的值.输入格式(输入文件
不知是你题有问题还是…………貌似不用排序啊…………
程序如下:
var
n,i,a:longint;{这里integer上限是33767,显然不能符合50000,因此用longint}
T,P,Q:longint;{此处同样}
begin
assign(input,'simple.in');
assign(output,'simple.out');
reset(input);
rewrite(output);{都是文件…………}
readln(n);
for i:=1 to n do
begin
read(a);
if odd(a)=true then {odd(a),奇数就返回true,else 返回false}
p:=p+a
else q:=q+a;
end;
T:=abs(P-Q); {abs(a)是绝对值函数,可以直接用,不需要调Math库}
writeln(T);
end.
close(input);
close(output);{文件,应该知道吧……}
这个应该是没错的………………