В массиве записана стоимость каждого товара, продаваемого фирмой. Фирма прекратила...

Question

В массиве записана стоимость каждого товара, продаваемого фирмой. Фирма прекратила продавать товары, стоимость которых равна значению, записанному в К-той ячейке массива. Определить какие товары продолжает продавать фирма.

Через Паскаль.

извините за кач-во ._.

---

Answer 1

 

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<0) then</p>

     writeln('Out of range')

 else

 begin

       for i:=0 to number_of_goods do

           if prices[i]<>prices[k] then writeln(goods[k])

 end

 

end.

 

 

Вот примерно вот так