var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
P=K/N - вероятность получения четвёрки
К - количество четвёрок
К=р*N
N = 100 общее количество оценок
1/р =2^i, i=2 бита - количество информации о событии "четвёрка"
р= 1/2^i = 1/2²=1/4 - вероятность получения четвёрки
K=100*1/4 =25 четвёрок получил
Алгоритм, иконка, Интернет, не знаю.