Пользователь вводит расход энергии N предприятий. вычислить средний расход энергии на одно предприятие номер предприятия с наименьшим расходом — QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
INPUT "kolvo predpriyatiy="; n
DIM r(n)
FOR i = 1 TO n
    PRINT "Element "; i;
    INPUT "Rashod energii predpr ="; r(i)
NEXT
sr = 0: min = 1
FOR i = 1 TO n
    sr = sr + r(i)
    IF r(i) < r(min) THEN min = i
NEXT
sr = sr / n
PRINT "Sredniy rashod="; sr
PRINT "Nomer predpr s minim rashodom="; min

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

Leave a Comment