实验08 数组(一).docVIP

PROGRAM problem01 INTEGER :: num(10)=(/10,55,25,70,45,15,25,85,45,35/) ,n PRINT*,请输入100以内的一个正整数： READ*,n PRINT*,删除前数据: WRITE(*,100) (num(I), I=1,10 ) DO I=1,10 IF (n==num(I)) num(I)=-1 ENDDO PRINT* PRINT*,删除后数据: DO I= 1,10 IF ( n/=num(I) ) WRITE(*,100) num(I) ENDDO PRINT* 100 FORMAT((I3,2X\)) END PROGRAM main PARAMETER (max=40) CHARACTER*5 :: numbers(max) INTEGER,DIMENSION( 1: n ) :: englishs,maths,physics REAL :: averages(max),english_av,math_av,physic_av,average,sum1=0,sum2=0,sum3=0 INTEGER(1) :: n,n1=0,n2=0,n3=0,nn=0 REAL :: p1,p2,p3,pp PRINT*,请输