DANIIL_VAL

PROGRAM DANIIL_VAL
INTEGER A(100), N, INT_VAL
PRINT *, 'ENTER SIZE OF ARRAY'
READ *, N
OPEN(1, FILE='DANIIL_TEXT.TXT')
READ (1, *) (A(I), I = 1, N)
CLOSE(1)
INT_VAL = 0
DO I = 1, N
IF (A(I) > 0) THEN
INT_VAL = 1
PRINT *, 'POSITIVE NUMBER ENCOUNTERED FIRST'
EXIT
ELSE IF (A(I) < 0) THEN
INT_VAL = -1
PRINT *, 'NEGATIVE NUMBER ENCOUNTERED FIRST'
EXIT
ELSE
INT_VAL = 0
END IF
END DO
IF (INT_VAL == 0) PRINT *, 'ALL VALUES ARE EQUAL TO 0'
END PROGRAM