В программе синтаксических ошибок нет, она компилируется и работает. Поскольку постановка задачи не приведена, оценить, насколько она выполняет свою функцию, невозможно.
Всего символов в высказывании: 57.
Один символ = 1 байт из условия. 57 байт = 456 бит (57*8 т.к. в одном байте 8 бит)
Ответ: 3
<span>Cначала находим количество девочек в классе. Для этого двоичное число 110010 преобразуем в десятичную, пронумеровав каждую цифру в числе с права на лево, начиная с нуля. Номер числа - показатель степени двойки для дальнейшего суммирования. Там, где 0 - игнорим степень. Где 1- считаем её. В итоге находим сумму 2+16+32=50% девочек в классе. Также и с количеством мальчиков 1010= 2+8=10. Теперь 10 делим на 100%-50%=10/0.5=20 человек в классе. Ответ "Б"</span>
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.