Информация о массе учеников хранится в массиве,определите количество молока,требующегося на класс из расчёта 1 стакан на учащихся,для учащихся меньше 30 килограмм дополнительный стакан (в стакане 200 миллилитров молока)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
INPUT "vvedite kolichestvo uchenikov ", n
DIM a(n)
s = 0.2 * n
FOR i = 1 TO n
    INPUT " vvedite ves ", a(i)
    IF a(i) < 30 THEN s = s + 0.2
NEXT
PRINT "litrov=", s

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment