Kod: Zaznacz cały
program minmax
implicit none
real, allocatable :: x(:)
real xmin, xmax
integer i,n,nm0
open (11,file='liczby.dat')
read(11,*) n
if (n<1) then
write (*,*) 'za malo danych'
stop
end if
allocate(x(n))
do i=1,n
read(*,*) x(i)
end do
close(11)
xmin=x(1)
xmax=x(1)
do i=2,n
if (x(i)>xmax) xmax=x(i)
if (x(i)<xmin) xmin=x(i)
end do
write(*,*) 'najmniejsza liczba =',xmin
write(*,*) 'najwieksza liczba =',xmax
deallocate(x)
end program minmax