排队接水
来源:互联网 发布:手机计步器软件排行 编辑:程序博客网 时间:2024/04/30 22:42
var
a:array[0..1000,1..2]of longint;
i,j,n,ans:longint;
sum:int64;
begin
read(n);
for i:=1 to n do
begin
read(a[i,1]);
a[i,2]:=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]>a[j,1] then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
for i:=1 to n do
write(a[i,2],' ');
for i:=2 to n do
for j:=1 to i-1 do
sum:=sum+a[j,1];
writeln;
write(sum/n:0:2);
end.
a:array[0..1000,1..2]of longint;
i,j,n,ans:longint;
sum:int64;
begin
read(n);
for i:=1 to n do
begin
read(a[i,1]);
a[i,2]:=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]>a[j,1] then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
for i:=1 to n do
write(a[i,2],' ');
for i:=2 to n do
for j:=1 to i-1 do
sum:=sum+a[j,1];
writeln;
write(sum/n:0:2);
end.
1 0
- 排队接水
- 1172 排队接水
- 排队接水
- 【贪心】排队接水
- 排队接水(sort)
- 排队接水
- 排队接水
- 排队接水
- P1223 排队接水
- 排队接水
- P1223 排队接水
- 排队接水
- P1223 排队接水
- 排队接水
- 排队接水
- P1223排队接水
- 排队接水
- P1223 排队接水
- Codeforces Gym 100962 H. Hans Zimmer
- Leetcode 51. N-Queens
- [USACO1.3]混合牛奶 Mixing Milk
- C Primer Plus 知识点整理(一)
- Codeforces Round #397 E. Tree Fold(bfs,想法题,好题)
- 排队接水
- 六角填数(DFS)
- Easy单例模式
- 欢迎使用CSDN-markdown编辑器
- Codeforces Gym 100962 J. Jimi Hendrix
- 游戏开发时关于UGUI的一些控件无法使用的问题
- 八皇后
- Spark Streaming使用Kafka保证数据零丢失
- 死锁的产生