Ответ а: 1001
ответ б: 1130
ответ в: 03732
Если я правильно понял что это двоичная система, то
<em>uses crt;</em>
<em>var a, b, c, i, n:integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Введите размер массива, который надо сгенерировать');</em>
<em> read (n);</em>
<em> for i:=1 to n do </em>
<em> s[i]:=random(50);</em>
<em> for i:=1 to n do </em>
<em> writeln (i, ' элемент равен ', s[i]);</em>
<em> writeln ('Введите число, которое нужно найти');</em>
<em> read (a);</em>
<em> for i:=1 to n do</em>
<em> if s[i]=a then inc(b);</em>
<em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em>
<span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>