Помогите с задачей, прошу!

[GendoJIF]

Для каждого из n коммерсантов известны количество товара, который он продал по известной цене, а также размер арендной платы
за торговое место и сумма накладных расходов. У каждого коммерсанта товар и цены разные. Изобразите графически алгоритм и
напишите программу, определяющую коммерсантов, получивших максимальную прибыль.

[BDA]

Сообщение от Википедия

При́быль — положительная разница между доходами (выручкой от реализации товаров и услуг) и затратами на производство или приобретение и сбыт этих товаров и услуг. Прибыль = Выручка − Затраты (в денежном выражении).

Нужно для каждого коммерсанта посчитать выручку (сумма произведений количеств товара на его стоимость) и затраты (аренда плюс накладные расходы). Взять разность этих величин и получить прибыль. Все операции проводить в цикле и выбрать нужного коммерсанта. Что вызывает затруднения?

[Человек_Борща]

Уверен на парах им это рассказывали. ТС на пары не ходил, как следствие готовый код просит)

Уважаемый, кодом помогают когда есть проблемы с кодом. Нет кода - нет проблем.
Готовые решения толпа специалистов решает в другом разделе)

[GendoJIF]

Сообщение от Человек_Борща

Уверен на парах им это рассказывали. ТС на пары не ходил, как следствие готовый код просит)

Уважаемый, кодом помогают когда есть проблемы с кодом. Нет кода - нет проблем.
Готовые решения толпа специалистов решает в другом разделе)

На пары ходил, была пара где нам выдали эти задачи и сказали "удачи" Заочное отделение Пермского Национально Исследовательского Политехнического Университета.... Я не виноват что с меня только требуют.

[Winexcel]

Где n кол-во коммерсантов, приведу пример с кол-во товаром,для каждой единицы создай динамический массив из n коммерсантов, пример:

kolvotovara:array of integer;

Далее вводишь каким либо образом переменную n если это требуется, например:

n:=StrToInt(inputbox('Введите кол-во коммерсантов','Ввод:','0'));

Перед циклом создаём длинну массива

setlength(kolvotovara, n);

Далее в цикле прогоняешь это:

Цикл

for i:=1 to n do begin
//тут уже считаешь макс прибыль. как именно не придумал но ещё пару циклов решат проблему или ещё что либо.
end;

[/CODE]

[GendoJIF]

Winexcel Большое спасибо, дошло!

[Winexcel]

Сообщение от GendoJIF

Winexcel Большое спасибо, дошло!

Если не сложно, выложи соурс потом , самому интересно

[Winexcel]

Готовый пример с товарами и выводом в мемо статистики, взято 10 продавцов, товары у каждого продавца заполняются рандомно:

var
i,i2,n,chena:integer;
kolvotovaraN:array of integer;
begin
i2:=0;
chena:=10;
n:=10;
setlength(kolvotovaraN,n);
for i:=0 to high(kolvotovaraN) do
 kolvotovaraN[i]:=1+random(10);

 memo1.Lines.Clear;
for i:=0 to high(kolvotovaraN) do begin
 kolvotovaraN[i]:=kolvotovaraN[i]*10;
 memo1.Lines.Add('У продавца №'+IntToStr(i+1)+' выгода='+IntToStr(kolvotovaraN[i]));
end;

Осталось лишь найти из этого максимальный массив и думаю вопрос товаром уже решен =)