1113: 【入门】最大数 怎么解 用pascal
答案:2 悬赏:20 手机版
解决时间 2021-02-18 15:14
- 提问者网友：战魂
- 2021-02-18 12:01
1113: 【入门】最大数 怎么解 用pascal
最佳答案
- 五星知识达人网友：掌灯师
- 2021-02-18 12:23
你好！
的
打字不易，采纳哦！
的
打字不易，采纳哦！
全部回答
- 1楼网友：往事隔山水
- 2021-02-18 13:28
var
s,n,i:integer;
a:array[1..10] of integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
read(a[i]);
if s<a[i] then s:=a[i];
end;
for i:=1 to n do
if s=(a[i]) then write(i,' ');
end.
纯手工，谢绝抄袭
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯