Дан одномерный массив из 25 целых случайных чисел из диапазона [-100; 50] решите .

program helloworld;

var n: array [1..25] of integer;

var i: smallint;

begin

      for i : = 1 to 25 do

              n[i] : = -100 + random(150);

      for i : = 1 to 25 do

          if n[i] > 0 then writeln(n[i]);

end.

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.

половина байта, так как одно поле может принимать только 1 из 2 значений, тоесть 1 клетка 1 бит. так как клеток 4, сталобыть это 4 бит. так как 1 байт = 8 бит то 4 бита это половина байта