В массиве записана стоимость каждого товара, продаваемого фирмой. Фирма прекратила продавать товары, стоимость которых равна значению, записанному в
10-11 класс
|
К-той ячейке массива. Определить какие товары продолжает продавать фирма.
Через Паскаль.
извините за кач-во ._.
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.
Вот примерно вот так
Другие вопросы из категории
В чем может быть проблема?
Читайте также
элементов массива, соответствующих этим ученика.
массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году.
P.s Помогите пожалуйста, заране огромное спасибо.
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
содержат 5 страниц текста?
2. На предприятии имеется 9 автомобилей ГАЗ, 1 автомобилей ЗИЛ, 9 автомобилей КаМАЗ, 4 автомобилей MAN. Какое количество информации несет сообщение о выезде с территории автомобиля каждого вида?