Осень — время, когда часто отключают горячую воду. Впрочем, дома у Кеши имеется водонагреватель накопительного типа, так что по поводу отключений он переживает не очень сильно. Включив водонагреватель, Кеша считает правильным дождаться его полного нагрева. Для этого
требуется k минут, при этом каждую минуту водонагреватель потребляет w ватт.
Дома у Кеши установлен двухфазный счетчик электроэнергии. Согласно тарифам, начиная с
момента времени h1 часов m1 минут и до момента времени h2 часов m2 минут, электроэнергия
обходится в p копеек за ватт, а в остальное время — в q копеек за ватт.
Кеша включил водонагреватель в момент времени s часов u минут. Ваша задача — определить,
сколько (в копейках) будет стоить полный нагрев.
Формат входных данных
В первой строке содержится целое число k (1 6 k 6 106
) — время (в минутах), необходимое для
полного нагрева водонагревателя.
Во второй строке содержится целое число w (1 6 w 6 106
) — количество ватт, потребляемое
водонагревателем в минуту.
В третьей строке содержится целое число p (1 6 p 6 106
) — стоимость ватта согласно первому
тарифу.
В четвёртой строке содержится целое число q (1 6 q 6 106
) — стоимость ватта согласно второму
тарифу.
В пятой строке содержится целое число h1 (0 6 h1 6 23), а в шестой строке содержится целое
число m1 (0 6 m1 6 59) — час и минута, в которые начинает действовать тариф в p копеек за ватт.
В седьмой строке содержится целое число h2 (0 6 h2 6 23), а в восьмой строке содержится целое
число m2 (0 6 m2 6 59) — час и минута, в которые начинает действовать тариф в q копеек за ватт.
В девятой строке содержится целое число s (0 6 s 6 23), а в десятой строке содержится целое
число u (0 6 u 6 59) — час и минута, в которые Кеша включает водонагреватель.
1. Просматривая строку массива от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального.
2. Просматривая строку массива от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального.
3. И так далее до предпоследнего элемента.
Решение:
//Pascal
const
n = 7;
var
a: array[1..n, 1..n] of integer;
i, j, min, ind: integer;
//Заполнение массива сл. числами и вывод на экран
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
//Сортировка строки матрицы прямым выбором
for i := 1 to n - 1 do
begin
min := a[4, i];
ind := i;
for j := i + 1 to n do
if a[4, j] < min then
begin
min := a[4, j];
ind := j;
end;
a[4, ind] := a[4, i];
a[4, i] := min;
end;
writeln;
//вывод отсортированной строки
for j := 1 to n do
begin
write(a[4, j]:4);
end;
end.