В массиве записана стоимость каждого товара, продаваемого ...
Ответ
program MYPROG;
var
goods: array[0..10] of string;
prices:array[0..10] of real;
number_of_goods:integer;
k:real;
i:integer;
begin
number_of_goods :=10;
//Заполняем каким то образом названия товаров и цены к ним
goods[0] := 'Дети'; prices[0] := 15;
goods[1] := 'Женщины'; prices[2] := 10;
goods[2] := 'Щеночки'; prices[3] := 150;
readln(k);
if (k>number_of_goods) or (k
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022