В городе N магазинов. Массив A$(N) содержит названия магазинов, массив B(N) содержит среднюю цену на ноутбуки. Составить программу, выводящую информацию, в каком магазине выгоднее всего купить ноутбук. — QBasic(Бейсик)

CLS
INPUT "vvedite kol-vo magazinov"; n
DIM a$(n), b(n)
FOR i = 1 TO n
    PRINT "vvedite magazin, srednuy zenu";
    INPUT a$(i), b(i)
NEXT
min = b(1)
FOR i = 1 TO n
    IF b(i) < min THEN min = b(i): k = i
NEXT
PRINT a$(k), b(k)

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

Leave a Comment