Задача 5. Тах Нещодавно королева країни ужляндії придумала новий б відмивання грошей для свого королівського двору. Вона вирішила, що кожен житель, який бажає здійснити подорож з одного міста країни у інше, повинен розплатитися за це бажання своїми грошима. У країні є n міст, пронумерованих від 1 до n. Деякі міста з'єднані дорогами, рух по яких дозволено в обох напрямках. Починаючи рух по якій-небудь дорозі, мандрівник обов'язково повинен доїхати до її кінця,
Припустимо тепер, що житель країни хоче зробити подорож з міста А в місто В. Новий указ королеви свідчить, що при проїзді по будь-якій дорозі краіни під час цієї подорожі, поліцейські можуть взяти з цього жителя мито на користь королівського двору (а можуть не взяти). Якщо при цьому у жителя недостатньо грошей для сплати мита, то він автоматично потрапляє до в'язниці, Указ також встановлює величину мита для кожної дороги країни. Так як королева піклується про жителів своєї країни, то вона заборонила поліцейським брати з жителя мито більш ніж один раз під час однієї подорожі.
Відзначимо, що якщо існує кілька в потрапити з міста. А да міста В, то житель може вибрати для подорожі будь який з них за власним бажанням,
Напишіть програму, яка вводить опис міст і доріг країни, а також номери початкового і кінцевого міста подорожі; визначає, яку мінімальну суму грошей повинен взяти з собою житель, щоб гарантовано не потрапити у в'язницю під час подорожі; виводить результат.
sugarMass=50 #масса сахара
sugarCost=15 #стоимость сахара
flourMass=100 #масса муки
flourCost=8 #стоимость муки
meatMass=12 #масса мяса
meatCost=95 #стоимость мяса
fishMass=20 #масса рыбы
fishCost=70 #стоимость рыбы
totalCost=sugarMass*sugarCost+flourMass*flourCost+meatMass*meatCost+fishMass*fishCost #общая стоимость
totalMass=sugarMass+flourMass+meatMass+fishMass #общая масса
print('Общая стоимость товара - ' + str(totalCost) + 'грн')
print('Общая масса товара - ' + str(totalMass) + 'кг')
print('Стоимость сахара - '+str(sugarMass*sugarCost)+'грн')
print('Стоимость муки - '+str(flourMass*flourCost)+'грн')
print('Стоимость мяса - '+str(meatMass*meatCost)+'грн')
print('Стоимость рыбы - '+str(fishMass*fishCost)+'грн')
pascal
Объяснение:
procedure sortmas(a: array of integer);
var i, j, min, ind: integer;
begin
for i := 0 to Length(a) - 2 do
begin
min := a[i]; ind := i;
for j := i + 1 to Length(a) - 1 do
if a[j] < min then
begin
min := a[j]; ind := j;
end;
a[ind] := a[i]; a[i] := min;
end;
end;
var a: array of integer;
n , i: integer;
begin
WriteLn('Введите размер массива: '); Read(n);
SetLength(a, n);
Randomize;
WriteLn('Содержимое массива:');
for i := 0 to Length(a) - 1 do
begin
a[i] := random(100);
Write(a[i], ', ');
end;
WriteLn;
sortmas(a);
WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');
end.