Блок схема в QBasic
CONST n = 27
DIM k(n) RANDOMIZE TIMER FOR i = 1 TO n k(i) = INT(RND * 91) - 45 NEXT p = 1: im = 1 FOR i = 1 TO n p = p * k(i) IF k(i) > k(im) THEN im = i NEXT FOR i = 1 TO n PRINT k(i); NEXT PRINT STRING$(80, 196) PRINT "p="; p, "max = k("; im; ") = "; k(im) FOR i = 1 TO n IF k(i) < 0 THEN k(i) = 0 NEXT PRINT STRING$(80, 196) FOR i = 1 TO n PRINT k(i); NEXT |
Часовой пояс GMT +4, время: 19:47. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.