Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.