По убыванию
D. - всех больше
B.
А.
С. - всех меньше
Если я правильно поняла, то вот:
На PascalABC.NET
begin
var (a,b):=(random(10)+1,random(10)+1);
var k: integer;
if a>b then k:=a*b
else k:=a+b;
writeln(a,b,k);
end.
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
<span>4*1024+8*1025-2*1026-140=10104 (но система десятичная)
Переводим:
</span>
10011101111<span>000 (это уже двоичная, осталось только посчитать нули [в данной записи ненужные уже убраны, они, при переводе, стояли перед числом и не влияли на него])
</span>Считаем и получаем: 6