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