fortran中对于数组1，2，3，当x为1时候，删掉3，只剩1，2，如何表达

可以使用Fortran中的数组切片操作来删除数组中的元素。以下是一种可能的方式：

! 定义原始数组
integer :: arr(3)
arr = [1, 2, 3]

! 删除第三个元素
arr = [arr(1:2)]

! 输出结果
write(*, *) arr ! 输出 [1, 2]

在这个例子中，我们首先定义了一个初始的整数数组 `arr`，其中包含三个元素 1，2，3。然后，我们使用数组切片操作 `arr(1:2)`，将数组的前两个元素复制到一个新的数组中，从而删除了原始数组的第三个元素。最后，我们输出了结果，可以看到新数组中只剩下了 1 和 2。