===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ArrRandom(n, -5, 5);
var k := a.Println.Count(p -> p = 2);
if k = 0 then
Print('Нет элементов, равных 2')
else
Print('Число элементов, равных 2:', k)
end.
Word; Real; Boolean; Boolean; ShortInt; ShortInt; Real; Real
Если я правильно понял что это двоичная система, то
<span>111100% - это 60% </span>
<span>1100 - это 12 мальчиков </span>
<span>Значит, мальчиков 40%. </span>
<span>12/0,4=30 - учеников в классе</span>
только что в 9 классе делает двоисная система? o_0
Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.