ответ: 15
Объяснение:
Рассмотрим алгоритм программы.
a: = 20Присваиваем переменной a значение 20.
b: = 15Присваиваем переменной b значение 15.
b: = 3 * b - aПрисваиваем переменной b результат следующих операций: 3*b-a. Так как a=20, b[старое]=15, то b[новое] = 3*15-20 = 45-20 = 25.
если a>b то с := 2 * а + b иначе с := 2 * а - bвсеТак как a=20, b=25, то условие a>b не выполняется, и выполнен будет блок иначе. Значит переменной с будет присвоено следующее значение: 2*а-b = 2*20-25 = 40-25 = 15.
Итак, как мы видим, после выполнения данного фрагмента программы, переменная с будет равна 15.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-28,25); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1,
', его значение равно ',a[imin])
end.
Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28