Programmi

Max e Min

TROVA IL MASSIMO E IL MINIMO DI UNA MATRICE A E NE EVIDENZIA LA POSIZIONE.

TROVA IL MASSIMO E IL MINIMO DI UNA MATRICE A E NE EVIDENZIA LA
POSIZIONE.

      integer a(10,10),max,min
      write(*,*)'introduci n,m e gli elementi di a per colonne'
      read(*,*) m,n,((a(i,j),i=1,m),j=1,n)
      write(*,*)'matrice a in ingresso'
      do 100 i=1,m
         write(*,55) (a(i,j),j=1,n)
  100 continue
      max=-99999
      min= 99999
      do 40 i=1,m
         do 40 j=1,n
         if(a(i,j).gt.max) then
                 max=a(i,j)
                 imax=i
                 jmax=j
         else if(a(i,j).lt.min) then
                 min=a(i,j)
                 imin=i
                 jmin=j
         end if
   40 continue
      write(*,45) max,imax,jmax,min,imin,jmin
   55 format(2x,10i5)
   45 format(1x,'max=',i4,2x,'imax=',i2,2x,'jmax=',i2,2x,
     * 'min=',i4,2x,'imin=',i2,2x,'jmin=',i2)
      stop
      end

• » Invia tramite EMAIL
• » Versione per la STAMPA
• » Le vostre opinioni