Ксенька Грушина
Мастер
(1522)
16 лет назад
Легкая задача. Я наподобие много решал за деньги студентам с архитектурного факультета.
Если пришлю тебе прогу, дашь 10 баллов за лучший ответ?
Вот тебе текст:
DIM mass(11) AS INTEGER
DIM summa AS INTEGER
DIM i AS INTEGER
PRINT "Vvedite elementy massiva"
FOR i = 0 TO 11
INPUT mass(i)
NEXT i
FOR i = 0 TO 11
IF mass(i) = 17 THEN
GOSUB summ
END IF
NEXT i
PRINT "17 net"
END
summ: summa = 0
FOR i = i TO 11
summa = summa + mass(i)
NEXT i
PRINT "Summa ravna: ";
PRINT summa
END