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 ( Скачать )