完善程序（pascal）
答案:2 悬赏:70
解决时间 2021-01-17 03:16
- 提问者网友：蓝琪梦莎
- 2021-01-16 07:28
完善程序（pascal）
最佳答案
- 二级知识专家网友：夜风逐马
- 2021-01-16 08:16
1
① 0
② y[j] < y[i]（或y[i] > y[j]）
③ inc(f[i])
（或f[i] := f[i] + 1）
④ f[i] >= max_f（或max_f <= f[i]，两种答案均必须有等号）
⑤ ans := i
2
① false
② used[data[i]] := false
③ j
④ n
⑤ break
其中，false可以用0代替。追问额，第一题的④我少等号了……第二题②我没写data[i]。。。③我写的date[i]+1，⑤不是打印吗？追答昨天的初赛我也是考完了才知道啊。。。
① 0
② y[j] < y[i]（或y[i] > y[j]）
③ inc(f[i])
（或f[i] := f[i] + 1）
④ f[i] >= max_f（或max_f <= f[i]，两种答案均必须有等号）
⑤ ans := i
2
① false
② used[data[i]] := false
③ j
④ n
⑤ break
其中，false可以用0代替。追问额，第一题的④我少等号了……第二题②我没写data[i]。。。③我写的date[i]+1，⑤不是打印吗？追答昨天的初赛我也是考完了才知道啊。。。
全部回答
- 1楼网友：十年萤火照君眠
- 2021-01-16 08:40
啊，今天下午我也做过了！NOIP第18届的追问SO？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息