Страница 72-86 §2.2 номер 12, ГДЗ по информатике за 9 класс к учебнику Босовой

program z_12;

const

  count = 10;

  k: array [1..count] of real = (57.2, 56.5, 80, 39.1, 38, 3.7, 10.3, 1.6, 4.2, 9);

  s: array [1..count] of real = (301.2, 552, 356, 504.8, 313, 65.2, 132, 45.1, 387, 101.9);

  ni: array [1..count] of string = ('Италия', 'Франция', 'Германия', 'Испания', 'Польша', 'Литва', 'Греция', 'Эстония', 'Норвегия', 'Болгария');

var

  n: array[1..count] of string;{Массив для сортировки имен}

  p: array[1..count] of real;{Массив для сортировки плотности населения}

  px: real;{очередная плотность населения}

  nx: string;{очередное названия страны}

  i, j: integer;

begin

  for i := 1 to count do

    n[i] := ni[i]; {названия стран переносятся в переменный массив, т.к. в массиве const менять местами данные нельзя!}

  for i := 1 to count do

    p[i] := k[i] / s[i]; {заполнение массива плотности населения}

   for i := 1 to count - 1 do

      for j := i + 1 to count do

          if p[i] > p[j] then {сравниваем текущий элемент с последующим}

         begin {если последующий меньше текущего, то меняем их местами}

        px := p[i];

        nx := n[i];

        p[i] := p[j];

        n[i] := n[j];

        p[j] := px;

        n[j] := nx

      end;

  for i := 1 to count do {вывод отсортированного массива}

    writeln(n[i]:14, ' ', p[i]:8:4)

end.