С помощью Конструктора и мастера
<span>Думаю, что нужно представить слово "ЁЖ" в виде аббревиатуры. Алгоритм и объяснения будут зависеть от словосочетания, которое будет обозначено словом "ЁЖ".</span>
Дано:
N1=16
N2=32
K1=100
K2=50
Найти: I
Формулы: N=2i, I=k*I
Решение:
16i=4, 32i=5
100*5=500
50*5=250
Ответ: 500 и 250
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('>',k);
var sp:=a.Where(x->x>0).Sum;
var po:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var b:=a.Select(x->x>0?po:(x<0?sp:0)).ToArray;
b.Println
end.
<u>Пример</u>
k= 10
> 9 20 -11 5 0 16 8 11 2 -17
187 187 71 187 0 187 187 187 187 71