<span>Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24.
public class zadanie4 {</span>
<span>public static void main(String[] args) {</span><span> .
int a[];</span><span><span>
a=</span>new int [150];</span><span>
System.out<span>.println(</span>"Исходный
массив:");</span><span>
for (int i=0;i<15;i++) {</span><span><span>
a[i]=(</span>int<span>) Math.floor(Math.random()*20)-10; </span></span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="+a[i]);}</span><span>
for (int i=0;i<15;i++){</span><span>
if (a[i]>=-5 && a[i]<=5){</span><span> a[i]=a[i]+1;}}</span><span><span>
System.</span>out.println("Полученный массив:"); </span><span>
for (int i=0;i<15;i++) { </span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="<span>+a[i]);}}} </span></span>
Потребуется 14 символов: 0,1,2,3,4,5,6,7,8,9,A,B,C,D.
Т.к. сообщение несет 4 бита, значит вероятность, что достали черную перчатку равна 1/16, т.к. 2^4 = 16
Получается, что белых перчаток 1/16 часть, а черных 15/16
Т.к. белых перчаток 30, и их 15/16 от общего количества, то черных перчаток в 15 раз меньше, то есть 30/15 = 2 пары
Складываем белые и черные, 30+2 = 32 пары.
Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.