Синформатикой..чтобы было что в дано и решение.​

№136дано: n=16найти: i - ? решение: n=2^i16=2^ii=8 бит№139дано: n=65536найти: i - ? решение: n=2^i65536=2^ii=16 битi=16: 8=2 байт   №142дано: k=512*512 , n=256найти: i - ? решение: n=2^i256=2^ii=8 битi=k*ii=512*512*8= 2097152 бит = 256 кбайт№149дано: k=64*64 , i=512 байтнайти: n - ? решение: i=k*ii=i/k= 4069 бит/4096=1n=2^i=2

Var a: array[1..10] of integer;   i,k,min: integer;   begin  k: =0;   for i: =1 to 10 do begin  read(a[i]);   if (a[i] mod 2=0) and (a[i]< 0) then  k: =k+1;   if a[i]> 0 then min: =a[i];   end;   for i: =1 to 10 do  if (a[i]< min) and (a[i]> 0) then min: =a[i];   writeln('количество четных отрицательных чисел ', k);   if min=0 then writeln('положительных элементов нету') else  writeln('минимальный положительный элемент массива ', min);   end. 

считаем, что вначале данные . полагаем, что первый элемент находится на своем месте, поэтому граница между отсортированными и неотсортированными элементами находится после первого элемента. на каждом шаге, начиная от границы, ищем максимальный элемент и определяем его место в отсортированной части последовательности, после чего сдвигаем необходимую часть отсортированных элементов вправо и производим вставку элемента на освободившееся место. алгоритм выполняем до тех пор, пока не граница отсортированных данных не выйдет за границу массива.

pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

procedure sortbyinsert(a: array of real);

// сортировка простыми вставками

begin

  for var граница : = 1 to a.length - 1 do

    if a[граница - 1] < a[граница] then

    begin

      // сдвиг вправо

      var (элемент, позиция) : = (a[граница], граница - 1);

      while (позиция > = 0) and (a[позиция] < элемент) do

        (a[позиция + 1], позиция) : = (a[позиция], позиция - 1);

      // вставка на нужное место

      a[позиция + 1] : = элемент

    end

end;

begin

  var a : = readarrreal(8);

  sortbyinsert(a); a.println

end.

пример 2.9 -25 8.1 31.9 -30.9 20.9 47.6 6.6 47.6 31.9 20.9 8.1 6.6 2.9 -25 -30.9