Дано N (случайное число от 0 до 10, использовать random). В цикле
задается N случайных чисел (random) в диапазоне от -10 до 10.
Определить количество положительных, отрицательных и равных 0
чисел. Если каких-либо чисел нет, то выдать соответствующее сообщение.
Например,
Дано случайное число 6
5 7 -3 8 -10 3
Из 6-ти чисел 4 - положительных, 2-отрицательных, 0 – нет.

ответ: 48

Объяснение:

В любом двоичном числе каждая цифра будет 1 или 0. Причём, следует не забывать, что пятизначные числа, начинающиеся на 0, не считаются таковыми. Поэтому количество всех пятизначных двоичных чисел будет равно 2⁵ - 2⁴ = 32 - 16 = 16.

Все двоичные числа начинаются с 1, поэтому все первые цифры наших чисел будут единицами — это 16 единиц. Если чисел 16, каждая цифра (кроме первой) может принимать значение 1 либо 0, значит каждый последующий разряд всех чисел будет принимать 16/2 раз единицу и 16/2 раз ноль. Выходит всего по 8 единиц в каждом из 4 разрядов — это 32 единицы. 16 + 32 = 48.

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969