主题：各位大虾,帮帮我吧!
绿水中的鱼
[专家分：50] 发布于 2006-06-03 11:31:00
我有问题如下:
读入n个数，打印其中的最大数及其位置号。
这道题我是会做的,但是能不能读入N(就是我要输4个数,在用户屏幕中读入4,而不是在源程序中修改),有没有办法?(我还有一个限制,只能用数组及一些简单的语句,否则我看不懂).[em10][em10]
回复列表 （共4个回复）
沙发
绿水中的鱼 [专家分：50] 发布于 2006-06-03 11:32:00
快回答,我看的懂的有分加!!!!!!!!!!!!
板凳
lmj9201 [专家分：1400] 发布于 2006-06-06 11:55:00
var
a:array[1..1024]of integer;
b,i,n,k:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
b:=a[1];k:=1;
for i:=2 to n do
if a[i]>b then
begin
b:=a[i];
k:=i;
end;
writeln(b,' ',k);
end.
你数再多也超不过1024吧！
3 楼
绿水中的鱼 [专家分：50] 发布于 2006-06-07 20:43:00
谢谢，那数组最多能开多大呢？
4 楼
chenzhong [专家分：250] 发布于 2006-06-12 21:11:00
var
x,i,n,j:integer;
a:array[1..n] of integer;
begin
resd(n);
for i:=1 to n do
readln(a[i]);
begin
for j:=2 to n do
x:=a[1];
if x<a[j] then x:=a[j];
end;
write(x,j)
end.
我来回复
您所在位置：