Guide

Si tratta di un programma Fortran a cura del Prof. Paolo Bison - Corso di Fondamenti di Informatica - Università di Padova che ricerca il valore minimo e massimo contenuto in un dato vettore.

LISTATO DEL PROGRAMMA

! minmax.f90
! cerca il max e il min di un array di interi
program minmax
integer, parameter :: n=10
integer,dimension(n) :: a
integer :: i,min,max
read *,a ! lettura di n interi
min = a(1)
max=min
do i=2,n
if (a(i)>max) then; max = a(i)
else if (a(i) end do
print *,"min",min,"max",max
! funzioni intrinseche
print *,"min",minval(a),"max",maxval(a)
end program minmax

Link correlati all’argomento