写出一个“求3*4矩阵中的最大元素和最小元素”的fortran程序，本人程序小白，望能详细解读下，谢谢
program main
real *8 s(10)
read(*,*) s(1:10) ！这里需要你对这个数组进行赋值
max=s(1)
min=s(1)
t1=0.d0
t2=0.d0
do i=1,10
if (s(i).gt.max) then
max=s(i)
t1=i
endif
if(s(i).lt.min) then
min=s(i)
t2=i
endif
enddo
write(*,*) '最大值+位置',max,t1,'最小值+位置',min,t2
end
哎，怎么不好好学，先给分再详细点
将其中的字符转化为相应的数据等等，简单一句话就是：解析
从文件读入内容，然后把内容中的数字字符转换为数据，
program test
character(len=100)::str_temp,str_temp2
integer::x,y
open(100,file=\'1.txt\')
!----------------
read(100,*),str_temp
i=index(str_temp,\'=\')
ilen=len(trim(str_temp))
str_temp2=str_temp(i+1:ilen)
read(str_temp2,*),x
!----------------
read(100,*),str_temp
i=index(str_temp,\'*\')
ilen=len(trim(str_temp))
str_temp2=str_temp(i+1:ilen)
read(str_temp2,*),y
!----------------
print*,x*y
end program test
INTEGER A(M,N)
READ(*,*)((A(I,J),J=1,4),I=1,3)
WRITE(*,100)A
100 FORMAT(1X,10I5)
K=1
L=1
!循环求最大值
DO 20 I=1,M
DO 10 J=1,N
IF (A(K,L)<A(I,J))THEN
K=I
L=J
END IF
10 CONTINUE
20 CONTINUE
WRITE(*,*)A(K,L)
!一下循环求最小值
DO 40 I=1,M
DO 30 J=1,N
IF (A(K,L)>A(I,J))THEN
K=I
L=J
END IF
30 CONTINUE
40 CONTINUE
WRITE(*,*)A(K,L)
END
real a(3,4)
此处对a赋值
Write(*,*) MaxVal(a),MinVal(a)
写出一个“求3*4矩阵中的最大元素和最小元素”的fortran程序,本人程 ...
答：PARAMETER (M=3,N=4)INTEGER A(M,N)READ(*,*)((A(I,J),J=1,4),I=1,3)WRITE(*,100)A 100 FORMAT(1X,10I5)K=1 L=1 !循环求最大值 DO 20 I=1,M DO 10 J=1,N IF (A(K,L)<A(I,J))THEN K=I L=J END IF 10 CONTINUE 20 CONTINUE WRITE(*,*)A(K,L)!一下...
求一个 3×4 矩阵中的最大元素
答：int a[3][4]={{1,3,6,7},{2,4,6,8},{15,17,34,12}};int row,col;cout<<max_value(a,3,&row,&col)<<'\n';cout<<"row="<<row<<" col="<<col<<endl;return 0;} int max_value(int array[][4],int n,int *r,int *c){ int i,j,max=array[0][0];for(i=...
请大家帮忙用C语言编个程序,“有一个三乘四的矩阵,求编程求出其中值最...
答：main(){ int max,maxi,maxj,min,mini,minj,a[3][4],i,j;printf("input numbers:\n');for(i=0,i<3;i++)for(j=0;j<4;j++)scanf("%d",&a[i][j]);max=min=a[0][0];for(i=0,i<3;i++)for(j=0;j<4;j++){ if(a[i][j]>max){ max=a[i][j];maxi=i+...
c语言程序编写 输入一个4×3的整数矩阵,输出其中最大值,最小值和他们...
答：int r1=0,r2=0,c1=0,c2=0;for(i=0;i<4;i++)//输进二维数组for(j=0;j<3;j++){printf("Input arr[%2d][%2d]: ",i,j);scanf("%d",&arr[i][j]);} max=arr[0][0];//令最大值初始化为arr[0][0]min=arr[0][0];//令最小值初始化为arr[0][0]printf("\n\n\...
有一个3*4的矩阵,要求编程序求出其中值最大的那个元素的值,以及其所...
答：h> void main(){int a[3][4]={{1,2,3,4},{5,6,7,8},{9,10,11,12}};int i,j,c,d,max;max=a[0][0];for(i=0;i<3;i++){for(j=0;j<4;j++)if(max<=a[i][j]){max=a[i][j];c=i;d=j;} } printf("%d最大数\n%d行号\n%d列号",max,c,d);} ...
输出一个3行4列的矩阵中最大元素的值及其行下标和列下标
答：这题没啥难度，两层for循环就能求出来，具体程序如下：include<iostream>using namespace std;int main(){ int matrix[3][4] = { { 3, 6, 13, 42 }, { 45, 12, 4, 9 }, { 34, 18, 43, 41 } }; int maxElement=INT_MIN, maxCol, maxRow; for (int i = 0; i ...
C语言程序设计:假设有一个3*4的矩阵,编写程序,找出其中值最大的元素
答：nMaxElem < nArray[i][j]){ nMaxElem = nArray[i][j];r = i+1; c = j+1;} } } printf("%d\t%d\t%d\n", nMaxElem, r, c);} int main(){ int n_array[3][4] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12};FindMax(n_array, 3, 4);return 0;} ...
编写程序,实现求矩阵3×4中元素的最大值及所在的行号与列号。(要求使用...
答：include <stdio.h>#include #include <stdlib.h>#define max_number 100int main(){ srand(time(NULL)); int a[3][4]; int max_col; int max_row; int i,j; for (i=0;i<3;i++) { for (j=0;j<4;j++) { a[i][j] = rand()%max_number;...
一个3* 4矩阵,试编程找出这个矩阵的最大值,并记录最大值所在的行和列...
答：void main(){ int a[3][4]={1,2,3,4,5,6,7,8,9,10,12,11},i,j,max,p,q;max=a[0][0];for(i=0;i<3;i++)for(j=0;j<4;j++)if(max<a[i][j]){ max=a[i][j];p=i;q=j;} cout<<"最大值为："<<max<<endl;cout<<"所在的行为："<<p<<endl;cout<<"...
C语言有一个3×4的矩阵,求其中的最小元素的值及其行下标和列下标_百度...
答：main(){ int i,j,a[3][4],min,mi,mj;for(i=0;i<3;i++)for(j=0;j<4;j++)scanf("%d",&a[i][j]);mi=mj=0;min=a[0][0];for(i=0;i<3;i++)for(j=0;j<4;j++){ if(min>a[i][j]){ min=a[i][j];mi = i;mj = j;} } printf("Minimal number is a[...
