- Codice: Seleziona tutto
C Esercizio livello avanzato programmazione
program MatAv1111
implicit none
C---Dichiarazioni
integer R, C, i, j, basso, alto, app, appB, appA
parameter (R=3)
parameter (C=2)
integer matrice(R,C)
C---Operazioni
do i=1, R
do j=1, C
write(*,*) 'Inserisci l''elemento della matrice ', i, j
read(*,*) matrice(i,j)
end do
end do
write (*,*) 'La matrice caricata e'' questa:'
do i=1, R
do j=1, C
write(*,*) matrice(i,j)
end do
end do
do i=1, R
app=0
do j=1, C
app=app+matrice(i,j)
end do
if (i.EQ.1) then
basso = i
alto = i
appB = app
appA = app
else
if (appB.GT.app) then
basso = i
appB = app
else
if (appA.LT.app) then
alto = i
appA = app
end if
end if
end if
end do
write(*,*) 'Numero riga con somma degli elementi minima: ', basso
write(*,*) 'La somma dei suoi elementi e'' ', appB
write(*,*) 'Numero riga con somma elementi massima: ', alto
write(*,*) 'La somma dei suoi elementi e'' ', appA
do j=1, C
app = matrice(basso, j)
matrice(basso, j) = matrice(alto, j)
matrice(alto, j) = app
end do
write(*,*) 'Ora le due righe sono state scambiate:'
do i=1, R
do j=1, C
write(*,*) matrice(i,j)
end do
end do
stop
end
mi perdo sempre nelle stupidagini!