//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandom(100, -60, 140);
println(a);
println('Max = ' + a.Max);
println('Min = ' + a.Min);
end.
Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон
Всего 91 (50 отриц Т+0= 40 полож Т) измерений температуры. Для двоичного кодирования нужно 128 бит, значит на один показатель нужно 7 бит
Да может) .................