NikKov_1

DIM N AS INTEGER, I AS INTEGER, II AS INTEGER, J AS INTEGER, KS AS INTEGER
INPUT "Введите количество товаров: ", N
DIM Costs(1 TO N) AS LONG, Days(1 TO N) AS INTEGER
FOR I = 1 TO N
    PRINT "Введите стоимость товара #"; I; ": ";
    INPUT "", Costs(I)
    PRINT "Введите число дней, за которые товар понижает сорт: ";
    INPUT "", Days(I)
NEXT I
INPUT "Введите день J, для которого следует высчитать стоимость товара: ", J
INPUT "Введите количество киллограм для покупки: ", KS
DIM CurSort AS INTEGER, CurCost AS LONG
FOR I = 1 TO N
    CurSort = 5: CurCost = Costs(I) * KS
    FOR II = 1 TO J
        IF II MOD Days(I) = 0 THEN
            CurSort = CurSort - 1
            CurCost = CurCost - (CurCost / 100 * 20)
        END IF
    NEXT II
    SELECT CASE CurSort
      CASE 1
        K$ = "Некондиция"
      CASE 2
        K$ = "Третий"
      CASE 3
        K$ = "Второй"
      CASE 4
        K$ = "Первый"
      CASE 5
        K$ = "Высший"
    END SELECT
    PRINT "Товар #"; I; ": Стоимость за"; KS; "кг ="; CurCost; " ; Сорт: "; K$
NEXT I