1*2^7+0*2^6+1*2^5+1*2^4+1*2^3+0*2^2+0*2^1+1*2^0=128+32+16+8+1=185
Запах, вкус, материальные вещи и тд
Начало
ввод числа
последняя цифра числа 0?
да нет ->Нельзя
Можно
Конец
Ван нужно перевести килобайты в байты?
0,25 Кб = 256 б
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125