已知数据文件array.txt第一行有两个数,分别表示数据的行数n列数m,第二行开始就是对应的数据,使用动态数组读取数据,并求其中小于3的数据的平方和,用fortran求解
默认情况,每read一次就会换行。你的数据应该是每行m个,因此只需读取n次,每次一行。
```c do i=1,n read(70,*) mn(i,:) end do a = sum(mn*mn,mask=mn<3)
```