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。

相关问题

如何将Fortran中的数组输出

在Fortran中，可以使用WRITE语句将数组内容输出到屏幕或文件中。具体步骤如下：

1. 定义数组：在程序中定义一个数组，例如：

REAL :: A(3,3)

2. 给数组赋值：通过赋值语句为数组的元素赋值，例如：

A(1,1) = 1.0
A(1,2) = 2.0
A(1,3) = 3.0
A(2,1) = 4.0
A(2,2) = 5.0
A(2,3) = 6.0
A(3,1) = 7.0
A(3,2) = 8.0
A(3,3) = 9.0

3. 使用WRITE语句输出数组：使用WRITE语句将数组输出到屏幕或文件中，例如：

WRITE(*,*) A

上述代码将数组A输出到屏幕中。如果要将数组输出到文件中，可以将"*"替换成文件名，例如：

OPEN(1, FILE='output.txt', STATUS='NEW')
WRITE(1,*) A
CLOSE(1)

上述代码将数组A输出到名为"output.txt"的文件中。

fortran中数组赋值

在Fortran中，可以使用以下语法为数组赋值：

1. 使用 DATA 语句进行初始化：

REAL :: x(3)
DATA x /1.0, 2.0, 3.0/

2. 使用 ASSIGN 语句进行赋值：

REAL :: x(3)
x = ASSIGN([1.0, 2.0, 3.0], x)

3. 使用 DO 循环进行赋值：

REAL :: x(3)
DO i = 1, 3
  x(i) = i
END DO

以上是一些常用的数组赋值方法，根据具体情况选择合适的方法即可。