program z2

integer, parameter:: razms = 3

integer, parameter:: razmt = 6

real x(razms, razmt)

integer a

real b, c, z

integer n, d

integer i, j

integer kol

real sum

print*, 'Vvod matricy X'

open (100, File='ish.dan')

do i=1, razms

read(100, *) (x(i, j), j=1, razmt)

write(*, *)(x(i, j), j=1, razmt)

end do

close (100)

print*

print*, '====== poisk A'

print*, 'Vvod N'

read(*, *)n

print*, 'Vvod d'

read(*, *) d

Mmax=-10**6

do i=1, razms

do j=1, razmt

if(x(i, j).GT. Mmax) Mmax= x(i, j)

A=x(i, j)

end do

end do

print*, 'A=', A

print*

print*, '====poisk B'

kol=0

do i=1, razms

do j=1, razmt, 2

if (x(i, j).LT.n) then

kol=kol+1

end if

end do

end do

B=kol

print*, 'B=', B

print*

print*, '===poisk C'

sum=0

kol=0

do i=1, razms

do j=1, razmt

if (x(i, j).GT.0) then

sum=sum+x(i, j)

kol=kol+1

end if

end do

end do

C=sum/kol

print*, 'C=', C

Z=A+(B/(10+C))

print*

print*, 'Znacenie Z=', Z

print*

print*, 'Zapis rezultatov v file'

open(100, File='rez.dan')

write(100, *) 'A=', A, ' B=', B, ' C=', C, ' Z=', Z

close (100)

print*, 'File zapisan'

end