Вкорзине лежат красные и чёрные клубки шерсти. красных клубов 6. сообщение о том, что достали чёрный клубок, несёт 2 бита информации. сколько всего клубков в корзине?

2² =4 - кол чёрных 4+6=10 - всего

1. const n=10; var a: array[1..n] of integer; s,i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; s: =0; for i: =1 to n do   if a[i]< 0 then a[i]: =-a[i]; writeln('полученный массив: '); s: =0; for i: =1 to n do begin   write(a[i]: 4);   s: =s+a[i];   end; writeln; writeln('s = ',s); end. пример: исходный массив:     3   2   16   18 -16 -20 -15   -8 -23   17 полученный массив:     3   2   16   18   16   20   15   8   23   17 s = 138 2. begin   var a: =arrrandom(readinteger('n=',25);   a.println;   a: =a.select(x-> x< 0? -x: x).toarray;   a.println;   writeln('сумма равна ',a.sum); end.

Var  a, b, s: integer;   tab: array [1..15] of integer;   begin  randomize;   for a : = 1 to 15 do  begin  tab[a] : = random(-15, 15);   writeln(a, ' - элемент = ', tab[a]);   end;   b : = tab[1]; s: =0; for a : = 1 to 15 do  begin  if tab [a] > b then b : = tab[a];   s: =s+tab[a]; end;   writeln('наибольший элемент массива = ', b);   writeln('s = ',s); end. пример: 1 - элемент = 15 2 - элемент = -10 3 - элемент = 5 4 - элемент = -6 5 - элемент = -14 6 - элемент = -1 7 - элемент = 9 8 - элемент = -7 9 - элемент = 1 10 - элемент = 15 11 - элемент = -4 12 - элемент = -5 13 - элемент = -6 14 - элемент = 7 15 - элемент = 10 наибольший элемент массива = 15 s = 9