Страница 54-55 параграф 1.4 вопрос 12, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

При сортировке по плотности обмен содержания ячеек идет и в массиве имен.

program Z_1_4_12;

const

  N = 10;

var

  name: array [1..N] of string = ('Китай', 'Индия', 'Россия', 'Бразилия', 'Индонезия', 'Нигерия', 'Пакистан', 'США', 'Мексика', 'Бангладеш');

  k: array [1..N] of longint = (1411750000, 1414843757, 146424729, 215000000, 277329163, 214568727, 222903998, 301693000, 129150971, 165775000);

  s: array[1..N] of longint = (9598960, 3287590, 17075000, 8511970, 1919440, 1267000, 803940, 9363000, 1972550, 130170); // площадь

  plt: array[1..N] of real; // плотность начеления

  i, j: integer;

  c: real;

  st: string;

begin

  for i := 1 to 10 do

    plt[i] := k[i] / s[i];//формирование массива плотности населения

  for i := 1 to 10 do //сортировка по плотности

    for j := i + 1 to 10 do

      if plt[i] > plt[j] then

      begin

        c := plt[j]; plt[j] := plt[i]; plt[i] := c;

        st := name[j]; name[j] := name[i]; name[i] := st;

      end;

  for i := 1 to 10 do writeln(name[i]:10, ' ', plt[i]:15:2);

end.

Окно вывода:

    Россия 8.58

  Бразилия 25.26

       США 32.22

   Мексика 65.47

 Индонезия 144.48

     Китай 147.07

   Нигерия 169.35

  Пакистан 277.26

     Индия 430.36

 Бангладеш 1273.53