Ответ:
скачай приложение NumConverter+
Объяснение:
там можешь решить это
Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.