ソース・プログラム program shift implicit none integer, parameter :: n = 3 integer :: ia(n, n) integer :: i, j character(len = 30) :: fmt write(fmt, *) '(', n, 'i5)' forall(i = 1:n, j = 1:n) ia(i, j) = i - 1 + 10 * (j - 1) print fmt, ia pr…