Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/34: Рейтинг темы: голосов - 34, средняя оценка - 4.76
1 / 1 / 0
Регистрация: 27.10.2013
Сообщений: 24
1

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

18.06.2015, 10:02. Показов 6470. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

Выходные:
1700
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2015, 10:02
Ответы с готовыми решениями:

Расчет средней зарплаты сотрудников фирмы
В среде турбо паскаль составить и отладить прграмму,которая позволяет посчитать среднюю зарплату...

Определить среднюю зарплату сотрудников фирмы
Инфа о фамилии и зарплате десяти сотрудников, каждая строка содержит фамилию и зарплату через...

В ведомости указана зарплата, выплаченная каждому из сотрудников фирмы
5.70. В ведомости указана зарплата, выплаченная каждому из сотрудников фирмы за некото-рый месяц....

В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года
В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года (в...

1
7 / 7 / 13
Регистрация: 01.04.2015
Сообщений: 34
18.06.2015, 11:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.
вот решение, если надо объяснять что и как я делал скажи, если неправильно найди контр пример.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2015, 11:51

Вывести сотрудников фирмы с минимальной зарплатой
База данных «Фирма» состоит из записей о сотрудниках фирмы (фамилия, имя, отчество, зарплата и...

В ведомости указанна зарплата ,выплаченная каждому из сотрудников фирмы за некоторый месяц.
№1 В ведомости указанна зарплата ,выплаченная каждому из сотрудников фирмы за некоторый месяц....

Вывести на экран фамилии сотрудников фирмы, премия которых более 1000 рублей
вывести на экран фамилии сотрудников фирмы, премия которых более 1000 рублей.

Имеется список сотрудников фирмы
Имеется список сотрудников фирмы, в котором записаны: - фамилия - имя - отчество - дата...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.