Упорядкуйте одиниці довжини двійкового коду за зростанням. -біт -байт -мегабайт -кілобайт

Как-то так:

//fpc 3.0.0

program HelloWorld;

var

 a: array [1..12] of integer;  // массив от 1 до 12

 i: integer;                   // итератор

 N: integer;                   // размер массива

 min: integer;                 // минимальное число

 imin: integer;                // индекс минимального числа

begin

   N := 12;                    // размер массива 12

   

   // заполняем массив числами

   for i:=1 to N do

       a[i] := Random(10);

   

   

   // выводим массив

   write('Array: ');

   for i:=1 to N do

       write(a[i],' ');

   min:=a[1];  // берем первое значение числа в массиве как значение по умолчанию

   imin:=1;    // берем первый индекс

   // промегаемся по массиву

   for i:=1 to N do

   begin

       // если у нас квадрат min будет БОЛЬШЕ чем квадрат числа a[i], то мы записываем его значение в min и запоминаем индекс в imin

       if min * min > a[i] * a[i] then

       begin

           min:= a[i];

           imin:= i;

       end;

   end;

   

   writeln();                                      // делаем отступ

   writeln('------------------------------');      // отчеркиваем результат

   writeln('imin=', imin);                         // выводим значение imin

   writeln('MIN=', min);                           // выводим значение MIN

end.

Результат можно увидеть на скрине в приложении. Более приятный вид для восприятия кода тут: https://rextester.com/DFMS48956

Причины войны были следующие: обострение Восточного вопроса, противоречия из-за черноморских проливов, политика Англии и Франции, направленная на вытеснение России с Балкан. Важную роль в данном событии сыграл адмирал Нахимов. В ноябре 1853 года Нахимов разгромил Турецкий флот в Синопской бухте. Уничтожил береговые укрепления и взял в плен командующего турецкой эскадрой Осман-Пашу. В 1854-1855 годах Нахимов руководил обороной Севастополя. Был командующим Севастопольского порта, занимал пост временного губернатора Севастополя. Россия потерпела поражение в Крымской войне, потеряла устье Дуная и Южную Бессарабию. России запрещалось иметь военный флот в Чёрном море и укрепления на его берегах. Другим важным событием данного периода стало зарождение военно-полевой хирургии. Причины данного события были следующие: необходимость увеличить качество оказания медицинской солдатам, сократить число людских потерь, одержать победу в войне.