Nacrtati algoritam i napisati opšti potprogram koji će izračunati niz C(n), čiji će se članovi dobijati kao zbir odgovarajućih članova niza A(n) i niza B(n) (Ci=Ai+Bi). Tako dobijeni niz C(n), sortirati u opadajućem poretku. Napisati i glavni program koji će učitati nizove A(n) i B(n), pozvati potprogram i štampati niz C(n).
PROGRAM DOMACI
DIMENSION A(100)
DIMENSION B(100)
DIMENSION C(100)
PRINT*, 'Unesite br clanova niza:'
READ*, N
PRINT*, 'NIZ A:'
DO 10 I=1,N
READ*, A(I)
10 CONTINUE
PRINT*, 'NIZ B:'
DO 20 I=1,N
READ*, B(I)
20 CONTINUE
CALL NIZ(A,B,N,C)
PRINT*, (C(I), I=1,N)
PAUSE
END
SUBROUTINE NIZ (A,B,N,C)
DIMENSION A(100)
DIMENSION B(100)
DIMENSION C(100)
DO 30 I=1,N
C(I)=A(I)+B(I)
30 CONTINUE
DO 40 I=1, N-1
DO 50 J=I+1, N
IF(C(I).LT.C(J))THEN
CP=C(I)
C(I)=C(J)
c(J)=CP
END IF
50 CONTINUE
40 CONTINUE
RETURN
END
