1 2 3 4 5 6 7 8 9 10 | INPUT"vvedite razmer massiva";n DIM a(n) FOR i= 1 TO n INPUT"vvedite element";a(i) NEXT FOR i= 2 TO n IF a(i)>a(i- 1 ) THEN k=k+ 1 IF a(i)<a(i- 1 ) THEN m=m+ 1 NEXT IF k=n- 1 THEN PRINT"vozrastaet" ELSE IF m=n- 1 THEN PRINT"ubyvaet" ELSE PRINT"ne uporyadochen" |