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.

0 0

3 года назад

Что значит End, readln, writeln

Елена Дудникова [7]

1) Конец
2) Это термин в Паскале ( <span>readln(x) читает вводимую с клавиатуры строку в переменную х и переносит курсор на следующую строку )</span>
3) Отличие процедуры Writeln от оператора Write заключается в том, что Writelnпосле вывода сообщения на экран переводит курсор на другую строку.

0 0

4 года назад

Помогите пожалуйста.Урок по информатике. Вопрос:Прочитайте текст.Подчеркните предложения,в которых отражения нарушения правил т

Ontoflops [186]

Достал бутерброд,шнур из розетки
______________________________

0 0

4 года назад

Прочитать ещё 2 ответа