В массиве записана стоимость каждого товара, продаваемого фирмой. Фирма прекратила продавать товары, стоимость которых равна значению, записанному в К-той ячейке массива. Определить какие товары продолжает продавать фирма.
Через Паскаль.
извините за кач-во ._.
Answers & Comments
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
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.
Вот примерно вот так