MQN.gr

Κώδικας: Επιλογή όλων

      PROGRAM EREYNA
      DIMENSION ITYPE(500),H(500),W(500)
C
C***  ANAGNWSH TWN TIMWN
C
      DO 100 I=1,500
      READ(5,1000)ITYPE(I),H(I),W(I)
1000  FORMAT(I5,F10.0,F10.0)
100   CONTINUE
      NMAN=0
      NWOM=0
      WEIT=0
      HEIT=0
      DO 200 I=1,500
      IF(ITYP(I).EQ.7) NMAN=NMAN+1
      NWOM=NWOM+1
      WEIT=WEIT+W(I)
      HEIT=HEIT+H(I)
200   CONTINUE
      AVW=WEIT/500
      AVH=HETI/500
      WRITE(6,*)AVW,AVH
      WEITM=0
      WEITW=0
      DO 300 I=1,500
      IF(ITYP(I).EQ.7) WEITM=WEITM+W(I)
      WEITW=WEITW+W(I)
300   CONTINUE
      AWOM=WEITW/NWOM
      AVMAN=WEITM/NMAN
      WRITE(6,*) AVWOM, AVMAN
      LMAN=0
      LWOM=0
      IF(ITYP(I).EQ.7.AND.W(I).GT.AVMAN) LMAN=LMAN+1
      IF(ITYP(I).EQ.8.AND.W(I).GT.AVWOM) LWOM=LWOM+1
400   CONTINUE
      WRITE(6,*)LMAN,LWOM
      STOP
      END