3 lines
71 B
Forth
3 lines
71 B
Forth
DO 1 I = 1,N
|
|
DO 1 J = 1,N
|
|
1 A(I,J) = (I/J)*(J/I)
|
DO 1 I = 1,N
|
|
DO 1 J = 1,N
|
|
1 A(I,J) = (I/J)*(J/I)
|