begin
var n := 14;
var a := ReadArrReal(n);
var p := a[n - 2];
var s := a.IndexesOf(t -> t = p);
s.Select(i -> i + 1).Println.Count.Println // индексы,потом кол-во
end.
Пример1 4.5 4 -0.3 -0.5 4.2 -1.1 4.4 -3.1 -3.4 4.2 -1.2 -1.1 1.17 132 2)begin
var n := 16;
var a := ArrRandom(n, 0, 90);
a.Println;
var max := -1;
for var i := 0 to n div 2 - 1 do
begin
var t := a[i] - a[n - i - 1];
if max < t then max := t
end;
max.Println
end.
Пример79 73 62 60 29 3 71 21 64 9 53 32 15 24 16 2862 3)begin
var a := ReadArrInteger(12);
var s := a.Where(t -> t.IsEven);
var k := s.Count;
if k > 1 then ((s.Aggregate(1.0, (p, q)-> p * q)) ** (1 / k)).Println
else
if k = 0 then Println(0)
else s.First.Println
end.
Пример63 96 84 43 19 56 41 36 8 46 1 5742.6070511534269
Поскольку числа записаны в порядке убывания, одна сумма цифр двух разрядов равна 13, другая — 11. Чтобы число было наименьшим, необходимо, чтобы в старших разрядах находилась как можно меньшая цифра, следовательно сумма старших разрядов должна быть меньшей. При разложении 11 на слагаемые необходимо, чтобы одно из них было минимально возможным, поэтому представим 11 как сумму 2 и 9, это — первые две цифры искомого числа. Вторые две цифры получатся разложением числа 13 на слагаемые: 4 и 9. Следовательно, ответ 2949.
ответ: 2949.
Вот и все!