language: Fortran (gfortran-4.3.4)
date: 137 days 6 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

      program array
      integer i, j, n, a(40,40)
      write (*,*) 'please define size of matrix:'
      read (*,*) n
      do 20 j = 1,n
         do 10 i = 1,n
            if (i.eq.1.or.j.eq.1) then
              A(i,j)=1
              else
              A(i,j)=A(i-1,j)+A(i,j-1)
            endif
  10     continue
  20  continue
      do i=1,n
         write (*,1000) (a(i,j),j=1,n)
 1000 format (40I6)
      enddo
      stop
      end