1 2 3 4 5 6 7 8 9 10 11 12 | CLSINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n PRINT "vvedite element "; i INPUT a(i) IF a(i) MOD 5 = 0 THEN max = a(i): k = iNEXTFOR i = 1 TO n IF a(i) MOD 5 = 0 AND a(i) > max THEN max = a(i): k = iNEXTPRINT "nomer"; k; "znazenie"; max |
Тестирование выполнено в программе QB64 ( Скачать )