主题：[讨论]圆盘找数
傻蛋是也
[专家分：0] 发布于 2008-04-12 22:10:00
5 20 1 18 4 16 6 10 15 2 17 3 14 7 13 8 11 19 9 12相加最大的和最小的,越快越好!
[fly]????????????????????????????????????????????????[/fly]
回复列表 （共8个回复）
沙发
angwuy [专家分：2280] 发布于 2008-04-13 13:53:00
枚举
板凳
DYF213 [专家分：90] 发布于 2008-04-13 16:06:00
题目没说清
3 楼
晴天的微笑 [专家分：80] 发布于 2008-04-17 12:52:00
数组
4 楼
雾雨花开 [专家分：50] 发布于 2008-04-18 12:23:00
枚举
5 楼
雾雨花开 [专家分：50] 发布于 2008-04-18 12:24:00
数组
6 楼
さくら——SAKURA [专家分：80] 发布于 2008-04-21 12:16:00
最简单的是用数组来存放圆盘数，然后用For循环枚举所有可能，记录下最大和最小值。不过，貌似题目没说清楚，应该有规定能选几个数或者是被选的数符合什么要求，不然，最大的值只要将他们全部加起来就是了，而最小值只要从圆盘数中的最小数开始全部减掉就好了
7 楼
abcwuhang [专家分：1840] 发布于 2008-05-01 13:28:00
var a:array [1..100] of integer;
max,min,n,i:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(max+min);
end.
8 楼
傻蛋是也 [专家分：0] 发布于 2008-05-03 21:23:00
[quote]var a:array [1..100] of integer;
max,min,n,i:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(max+min);
end.[/quote]
还行!
我来回复
您所在位置：