free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例
答案:2 悬赏:70 手机版
解决时间 2021-02-28 05:09
- 提问者网友：难遇难求
- 2021-02-28 00:03
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例
最佳答案
- 五星知识达人网友：西风乍起
- 2021-02-28 01:07
program ysh(input,output);varst:ansistring;i,max,min:longint;a:array[1..1000] of longint;beginreadln(st);for i:=1 to length(st) do a[i]:=ord(st[i])-48;for i:=i+1 to 2*length(st) do a[i]:=a[i-length(st)]; //展开,便于处理max:=0;min:=maxlongint;for i:=1 to length(st) dobeginif a[i]+a[i+1]+a[i+2]+a[i+3]>max thenmax:=a[i]+a[i+1]+a[i+2]+a[i+3];if a[i]+a[i+1]+a[i+2]+a[i+3]
全部回答
- 1楼网友：患得患失的劫
- 2021-02-28 01:50
收益了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯