1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | DIM a(20)FOR i = 1 TO 20 INPUT "vvedite element "; a(i)NEXTPRINT "massiv"FOR i = 1 TO 20 PRINT a(i); " ";NEXTPRINTmin = a(3)nom = 3FOR i = 1 TO 20 IF (i MOD 3 = 0) AND (a(i) < min) THEN min = a(i): nom = iNEXTPRINT "min s nomerom kratnym 3="; min; " ego nomer="; nom |
Результат работы программы
Тестирование выполнено в программе QB64 ( Скачать )