program studenti
structure /student/
  character*32 priimek,ime*16
  integer starost
  real ocene_izpitov(50)
  record /datum/dv
  integer st_izpitov
end structure
structure datum/
 integer d,m,l
end structure
record /student/ s(5)
integer i,j
real pov(5)
max=1
do i=1,5
 print*,'vpisi priimek'
 read 10,s(i).priimek
 print*,'vpisi ime'
 read 10,s(i).ime
 10 format(a)
 print*,'vpisi starost'
 read*,s(i).starost
 print*,'vpisi stevilo izpitov'
 read*,s(i).st_izpitov
 print*,'vnesi',s(i).st_izpitov,'ocen'
 read*,(s(i).ocene_izpitov(j),j=1,s(i).st_izpitov)
enddo
do i=1,5
  pov(i)=0.0
  do j=1,s(i).st_izpitov
  pov(i)=pov(i)+s(i).ocene_izpitov(j)
  enddo
if(s(i).st_izpitov.gt.0)then
  pov(i)=pov(i)/s(i).st_izpitov
endif
if(pov(max).lt.pov(i))max=i
enddo
print*,'naj povprecje =',pov(max)
print*,'ima',s(max).priimek,s(max).ime
30 format(a16,' ',a32,'starost',i3,'dv',i2,'.',i2,'.',i4,'ocene',f5.1
do i=1,5
  print 30,s(i).ime,s(i).priimek,s(i).starost,s(i).dv.d,s(i).dv.m,s(i).dv.l,(s(i).ocene_izpitov(j),j=1,s(i).st_izpitov)
enddo
end