1. Розрахуйте вартість продуктів на овочевому складі після уцінення з до функції ЕСЛИ визначте ціну кожного товару після уцінення за умови, якщо певного товару залишилося менше 75 кг., його потрібно уцінити на 10%, інакше – на 20%.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; var se:=a.Where((x,i)->i.IsOdd).Sum; var pn:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q); var ko:=a.Where(x->x.IsOdd).Count; Writeln('Сумма элементов с четными номерами: ',se); Writeln('Произведение отрицательных элементов: ',pn); Writeln('Количество нечетных элементов: ',ko) end.
Пример n= 17 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99 Сумма элементов с четными номерами: -232 Произведение отрицательных элементов: -417286023598080000 Количество нечетных элементов: 10
begin var a:=ReadArrInteger('Вводите:',ReadInteger('n=')); a.Println; a.Transform(x->x<0?abs(x):x>0?x*x:x); a.Println end.
21 + 2*4 + 0*2 + 1*1 = 30 - перестановок команд = (2+0+1)!/2!/0!/1! = 3
21 + 1*4 + 2*2 + 1*1 = 30 - перестановок команд = (1+2+1)!/1!/2!/1! = 12
21 + 1*4 + 1*2 + 3*1 = 30 - перестановок команд = (1+1+3)!/1!/1!/3! = 20
21 + 1*4 + 0*2 + 5*1 = 30 - перестановок команд = (1+0+5)!/1!/0!/5! = 6
21 + 0*4 + 4*2 + 1*1 = 30 - перестановок команд = (0+4+1)!/0!/4!/1! = 5
21 + 0*4 + 3*2 + 3*1 = 30 - перестановок команд = (0+3+3)!/0!/3!/3! = 20
21 + 0*4 + 2*2 + 5*1 = 30 - перестановок команд = (0+2+5)!/0!/2!/5! = 21
21 + 0*4 + 1*2 + 7*1 = 30 - перестановок команд = (0+1+7)!/0!/1!/7! = 8
21 + 0*4 + 0*2 + 9*1 = 30 - перестановок команд = (0+0+9)!/0!/0!/9! = 1
Всего 3+12+20+6+5+20+21+8+1 = 96