Стрелокблин
Опубликовано 6 лет назад по предмету Информатика от Стрелокблин


В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого товара и его индекс.

  1. Ответ
    Ответ дан 1lelik

    Массив данных о стоимости товаров зададим в виде целочисленных констант

    program primer_1;const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58); i,min,k: integer; begin

    min:=a[1]; 

    for i:=2 to 12 do    if a[i]<min then

                                                 begin 

                                                  min:=a[i];                                              k:=i;write('минимальная стоимость ', min, '   индекс' ,k) end.

    Или скорее всего этот вариант

    program primer_1;var a: array[1..12] of integer; i, min, k: integer;beginfor i:=1 to 12 do read(a[i]);{Ввод стоимостей товаров}min:=a[1];k:=0;for i:=2 to 12 do if a[i]<min then begin min:=a[i]; k:=i; end;write('мин. сто-мость ', min, ' индекс ' ,k)end. 

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 9 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 9 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 9 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 9 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 9 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников