Массив а размер 12 заполняется случайными целыми числами из интервала (-100; 50). найти произведение положительных элементов массива.

Const       n = 12; var       i, p: integer;       a: array[1..n] of integer; begin       p : = 1;       for i : = 1 to n do       begin               a[i] : = random(150) - 100;               write(a[i], ' ');               if a[i] > 0 then p : = p * a[i];       end;       writeln;       writeln('p = ', p); end.

пяти красок - не решаема

только вот доказательств не знаю

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.