101010.1(2)<span>= 4</span><span>2.5(10)</span>
А что сделать то? Вы вопрос правильно сформулируйте!
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26
Dim Massiv(9) As Integer
Dim Max As Integer
Dim x As Integer
Max = Massiv(0)
For x = 1 To 9
If Massiv(x) > Max Then Max = Massiv(x)
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox(Max)</span>