求高手解答：2到小编程

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序1: 求1到100的和



程序2:
编程：输出下面数组中最大的值：
88 95 80 90 99 100 89 92 89 79
77 68 98 100 88 89 84 78 88 97

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：求高手解答 求高手 最大的 程序 最大的

a=1:100;
sum(a)

b=[88 95 80 90 99 100 89 92 89 79
77 68 98 100 88 89 84 78 88 97];
max(max(b,1),2);

非常感谢楼上哥，可是不行呀，老运行不出来……而且老师非得让用循环语句做

我sas编程不熟，不过我觉得循环的意思应该是程序1中设置一直循环加到100，程序2中循环的比较大小，输出较大者。请高手来解决吧，这个应该不难。

data;
sum = 0;
do i  = 1 to 100;
sum = sum + i;
end;
put sum =;
run;

data ;
input m1-m20;
array max(20) m1-m20;
do i = 1 to 20;
if max(i) > maximum then maximum = max(i) ; else
maximum = maximum;
end;
put maximum=;

datalines;
88 95 80 90 99 100 89 92 89 79 77 68 98 100 88 89 84 78 88 97
;
run;

上面程序修改下可以找出最小值。

data c;
input m1-m20;
array min(20) m1-m20;
minimum =m1;  /*这里不要等于0*/
do i = 1 to 20;
if min(i) < minimum then minimum = min(i) ;  /* “ <”就是找最小值，“>”找最大值*/
else  minimum = minimum;
end;
put minimum=;

datalines;
88 95 80 90 99 100 89 92 89 79 77 68 98 100 88 89 84 78 88 97
;
run;

proc print data=c; run;

1.
data a;
do i=1 to 100;
total+i;
end;
run;

2. 可不可以用_infile_+ input @@ 或input @呢?这样在数据读如之前大的值就可以取代之前的小值读入, 而小的值就可以被忽略了. 只有思路.

1.

1. data sum;
   
2. do i=1 to 100;
   
3. retain sum 0;
   
4. sum=sum+i;
   
5. end;
   
6. keep sum;
   
7. run;

复制代码

2.

1. data max;
   
2. array list{*} a1-a20(88 95 80 90 99 100 89 92 89 79
   
3. 77 68 98 100 88 89 84 78 88 97);
   
4. b=max(of a1-a20);
   
5. keep b;
   
6. run;

复制代码