Страница 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.