Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

помогите создать программу в QBasic!Пожалуйста!!!!

Катюшка Катюшка Ученик (89), на голосовании 16 лет назад
Дан массив из 12 чисел. Найти сумму чисел массива начиная с первого числа равного 17.
Голосование за лучший ответ
Bob Sinkler Профи (987) 16 лет назад
Жесть....катюшенька спроси у сокурсников лекции не отвлекай людей от интернета....:)))))
Виктор М Мастер (2323) 16 лет назад
незнаю
я этот язык забыл
Ксенька Грушина Мастер (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

Булочка с изюмом Мыслитель (6193) 16 лет назад
Вдумайся в свой вопрос! А где остальные 11 ?
Похожие вопросы