Помочь директору фирмы развезти сотрудников фирмы по домам на такси

@Rosenrot69 · Регистрация: 27.10.2013

Author24 — интернет-сервис помощи студентам

После затянувшегося совещания директор фирмы решил заказать такси, чтобы развезти сотрудников по домам. Он заказал N машин - ровно столько, сколь у него сотрудников. Однако когда они подъехали, оказалось, что у каждого водителя такси свой тариф за 1 километр.

Директор знает, какому сотруднику сколько километров от работы до дома (к сожалению, все сотрудники живут в разных направлениях, поэтому нельзя отправить двух сотрудников на одной машине). Теперь директор хочет определить, какой из сотрудников на каком такси должен поехать домой, чтобы суммарные затраты на такси (а их несет фирма) были минимальны.

Формат входных данных

В первой строке записано число N (1<=N<=100) - количество сотрудников. Во второй строке записаны N чисел через пробел, задающих расстояние в километрах от работы до домов сотрудников. В третьей строке записаны N чисел - тарифы за проезд одного километра в такси.

Выходные данные:
Выведите одно целое число - наименьшую сумму, которую придётся заплатить за доставку сотрудников.

Входные данные:
3
10 20 30
50 20 30

Выходные:
1700

@coade781717 · 18.06.2015, 11:51

Pascal

var n,i,j,x:longint;
a,b:array[1..100] of longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(n);
for i:=1 to n do
        read(a[i]);
for i:=1 to n do
        read(b[i]);
for i:=2 to n do
        for j:=2 to n do
                if a[j]>a[j-1] then begin
                        x:=a[j];
                        a[j]:=a[j-1];
                        a[j-1]:=x;
                end;
for i:=2 to n do
        for j:=2 to n do
                if b[j]<b[j-1] then begin
                        x:=b[j];
                        b[j]:=b[j-1];
                        b[j-1]:=x;
                end;
x:=0;
for i:=1 to n do
        x:=x+a[i]*b[i];
write(x);
end.

вот решение, если надо объяснять что и как я делал скажи, если неправильно найди контр пример.

@Rosenrot69 1 / 1 / 0 Регистрация: 27.10.2013 Сообщений: 24
		1
	Помочь директору фирмы развезти сотрудников фирмы по домам на такси 18.06.2015, 10:02. Показов 7314. Ответов 1 Метки нет (Все метки) После затянувшегося совещания директор фирмы решил заказать такси, чтобы развезти сотрудников по домам. Он заказал N машин - ровно столько, сколь у него сотрудников. Однако когда они подъехали, оказалось, что у каждого водителя такси свой тариф за 1 километр. Директор знает, какому сотруднику сколько километров от работы до дома (к сожалению, все сотрудники живут в разных направлениях, поэтому нельзя отправить двух сотрудников на одной машине). Теперь директор хочет определить, какой из сотрудников на каком такси должен поехать домой, чтобы суммарные затраты на такси (а их несет фирма) были минимальны. Формат входных данных В первой строке записано число N (1<=N<=100) - количество сотрудников. Во второй строке записаны N чисел через пробел, задающих расстояние в километрах от работы до домов сотрудников. В третьей строке записаны N чисел - тарифы за проезд одного километра в такси. Выходные данные: Выведите одно целое число - наименьшую сумму, которую придётся заплатить за доставку сотрудников. Входные данные: 3 10 20 30 50 20 30 Выходные: 1700 0

	18.06.2015, 11:51

Помочь директору фирмы развезти сотрудников фирмы по домам на такси

Решение