Drugi domaci zadatak

​​​​
Nacrtati algoritam i napisati opsti potprogram koji u kvadratnoj matrici dimenzije N pronalazi indekse J i I clana koji ima vrednost jednaku ili najblizu srednjoj vrednosti svih clanova matrice,a onda ih kao parametre vraca u glavni program.Napisati i glavni program koji ce ucitati matricu,pozvati opsti potprogram i stampati parametre.


program DOMACI
dimension a(100,100)
print *, "Uneti dimenziju matrice n x n"
read *, n
print *, "Uneti clanove matrice"
do i=1,n
do j=1, n
print*, "A(",i,j,")="
read *, a(i,j)
end do
end do
call korekcija (a,n,indeks_i,indeks_j)
print*, "Rezultat je A(",indeks_i,",",indeks_j,")"
end


subroutine korekcija (a,n,indeks_i,indeks_j)
dimension a(100,100)
suma=0
br=0
do i=1,n
do j=1,n
suma=suma+a(i,j)
br=br+1
end do
end do
sr=suma/br
mini=sr
do i=1,n
do j=1,n
vr=sr-a(i,j)
vr=abs(vr)
if (vr.lt.mini) then
mini=vr
indeks_i=i
indeks_j=j
end if
end do
end do
return
end