fortran 找出正方形矩阵两个对角线上最小的元素所在的位置
时间: 2024-02-22 09:56:57 浏览: 34
以下是 Fortran 代码,用于找出正方形矩阵两个对角线上最小的元素所在的位置:
```
program find_minimum_diagonal_element
implicit none
integer :: n, i, j, min_val, min_pos_i, min_pos_j
real :: matrix(100, 100)
! 读取矩阵大小
print *, "请输入矩阵大小:"
read *, n
! 读取矩阵元素
print *, "请输入矩阵元素:"
do i = 1, n
do j = 1, n
read *, matrix(i,j)
end do
end do
! 查找对角线上最小的元素及其位置
min_val = matrix(1,1)
min_pos_i = 1
min_pos_j = 1
do i = 1, n
if (matrix(i,i) < min_val) then
min_val = matrix(i,i)
min_pos_i = i
min_pos_j = i
end if
end do
do i = 1, n
if (matrix(i,n-i+1) < min_val) then
min_val = matrix(i,n-i+1)
min_pos_i = i
min_pos_j = n-i+1
end if
end do
! 输出结果
print *, "对角线上最小的元素:", min_val
print *, "它的位置是:", min_pos_i, min_pos_j
end program find_minimum_diagonal_element
```
上述代码首先读取矩阵大小和元素,然后查找两个对角线上最小的元素及其位置,最后输出结果。其中,`n` 表示矩阵的大小,`matrix` 是一个 `n × n` 的实数矩阵,`min_val` 表示对角线上最小的元素的值,`min_pos_i` 和 `min_pos_j` 分别表示对角线上最小的元素所在的行和列。