2024年4月山东自学考试正在备考阶段，请广大考生关注“山东自考网”，及时获取模拟试题、历年真题、最新山东自考成绩、山东自考报名、山东自考备考经验等信息！2、PROGRAM largest（input，output）；
VAR
a：ARRAY[1··5，1··5]OF integer；
max ，i，j，h，l：integer；
BEGIN
max：＝－maxint -1；
FOR i：＝1 TO 5DO
FOR j：＝1TO 5 DO
read （a[i，i]；
FOR i：＝1 TO 5DO
FOR j：＝1TO 5 DO
IF max＜a[i，j]THEN
BEGIN
max：＝a[i，j]；
h：＝i；
l：＝j
END；
writeln（max，h，l）
END.
评分细则：
max初值占1分；
输入占1分；
求max，h，l占7分；输出占12分。
3、 PROGRAM xyz（input，output）；
VAR
a，b：SET OF ‘A’··‘Z’；
ch：char；
BEGIN
a：＝[]； b：＝[]；
REPEAT
read（ch）；
IF （ch＞＝‘A’）AND （ch＜＝‘Z’）
THEN a：a＋[ch]
UNTIL ch＝‘·’；
REPEAT
read（ch）；
IF （ch＞＝‘A’） AND （ch＜＝‘Z’）
THEN b：＝b＋[ch]
UNTIL ch＝‘·’；
FOR ch：＝‘A’ TO ‘Z’DO
IF （ch IN a） AND（ch IN b）
THEN write（ch）
END.
评分细则：
统计第一句大字字母，2分；
统计第二句中大写字母，2分；
输出共同的大写英文字母，6分。
声明：
（一）由于考试政策等各方面情况的不断调整与变化，本网站所提供的考试信息仅供参考，请以权威部门公布的正式信息为准。
（二）本网站在文章内容来源出处标注为其他平台的稿件均为转载稿，免费转载出于非商业性学习目的，版权归原作者所有。如您对内容、版权等问题存在异议请与本站联系，我们会及时进行处理解决。
相关推荐
