Ирiжок у шкiльнiй столовiй коштує грн коп, а булочка з маком − грн коп. Оксанка дуже хоче їсти, тому вона вирiшила на всi кишеньковi грошi купити пирiжки та булочки. Усього в Оксанки рiвно
грн, i дiяти вона буде за таким планом:
∙ спочатку вона купить максимальну кiлькiсть наборiв «пирiжок плюс булочка», за кожний такий набiр
Оксанка безкоштовно отримає стакан чаю;
∙ на кошти, що залишилися, Маша купить максимальну кiлькiсть пирiжкiв;
∙ на кошти, що залишилися, Маша купить максимальну кiлькiсть булочок;
∙ на кошти, що залишилися, Маша купить чай, який коштує 50 копiйок за стакан.
Оксанка виконує цi дiї саме за таким порядком. Якщо якусь дiю виконати неможливо за браком коштiв,
то Оксанка переходить вiдразу до наступного пункту плану.
Визначте, скiльки пирiжкiв i булочок купить i з’їстъ Оксанка, а також скiлькома стаканами чаю вона це
все зап’є.
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
Writeln('Количество различных злементов равно ',
a.Distinct.Count)
end.
Пример
n= 20
-1 -1 5 -3 0 5 5 -5 -2 -4 -1 -2 -2 -2 2 -2 -3 1 2 1
Количество различных злементов равно 9
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MinBy(x->x[0]);
Writeln('Минимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -11 0 9
12 7 -12 0
8 23 6 20
Минимальный элемент A[2,3]=-12