Question

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

Answer 1

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.