![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
fortran编程输出如下数字三角阵
展开全部
integer i,j,k,a
dimension a(6)
do 10 i=1,6
do 20 j=1,i
k=(i-1)*6+j
a(j)=k
20 continue
write(*,*)(a(k),k=1,i)
10 continue
do 30 i=5,1,-1
do 40 j=1,i
k=(i-1)*6+j
a(j)=k
40 continue
write(*,*)(a(k),k=1,i)
30 continue
end
本回答被提问者和网友采纳
![](http://iknow-zhidao.bdimg.com/static/question-new/widget/value-comment/img/support_10.6efc748.gif?x-bce-process=image/format,f_auto/quality,q_80)
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询