===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
B64F (16) = 11*16^3 + 6*16^2 + 4*16^1 + 15*16^0 = 45056 + 1536 + 64 + 15=
= 46671 (10)
1. 5678
2. 75
3. Август, март
4. Май, сентябрь, декабрь
5. Забота, красота
6. 4342, 1234, 6432, 2345
Сори, что долго