1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | INPUT "n"; n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT FOR i = 1 TO n PRINT a(i); NEXT max = -1E38 FOR i = 1 TO n IF a(i) > max THEN max = a(i) NEXT FOR i = 1 TO n IF ABS (a(i)) > max THEN a(i) = 0 NEXT PRINT FOR i = 1 TO n PRINT a(i); NEXT |