Задать вопрос
16 февраля, 07:39

Написать программу на алгоритмическом языке Паскаль. Вывести наименование и стоимость продукта, которого на складе меньше всего.

+5
Ответы (1)
  1. 16 февраля, 08:14
    0
    Const

    nm = 50; { предельное число товаров }

    var

    mn: array[1 ... nm] of string;

    mk, ms: array[1 ... nm] of real;

    i, k, n: integer;

    min: real;

    begin

    Write ('Введите число продуктов на складе (не более ', nm, ') : ') ;

    Readln (n) ;

    min : = 1e10;

    for i : = 1 to n do

    begin

    Write ('Наименование продукта ', i, ': ') ; Readln (mn[i]) ;

    Write ('Количество и стоимость: ') ; Readln (mk[i], ms[i]) ;

    if min > mk[i] then begin min : = mk[i]; k : = i end

    end;

    Writeln ('На складе меньше всего продукта ', mn[k], ': ', mk[k],

    ' кг. стоимостью ', ms[k], ' руб. за 1 кг.')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу на алгоритмическом языке Паскаль. Вывести наименование и стоимость продукта, которого на складе меньше всего. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы