Условие задачи
Есть данные о шести товарах продовольственного магазина. Введите числовой код одного из товаров и получите справку о цене и количестве данного товара на складе.
Для решения задачи напишите код на Паскале. Входные данные задайте самостоятельно.
Ответ
Код программы:
var price, cnt: array [1..6] of integer;
i: integer;
begin
// ввод исходных данных
writeln('Введите данные о шести товарах');
for i := 1 to 6 do begin
writeln('Товар ', i);
write('Цена: ');
...