Упражнение №12

Босова 9 класс, Просвещение:

Занесите информацию о десяти странах мира в массивы NAME (название страны), К (численность населения), S (площадь страны). Напишите программу, выводящую названия стран в порядке возрастания плотности их населения.

Сортировка массива плотности населения производится методом «пузырька». Сортировка происходит по двум массивам: плотности населения и по данным этой сортировки меняется соответственно и массив названий стран.
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; // плотность начеления
plt[i] := k[i] / s[i];//формирование массива плотности населения
for i := 1 to 10 do //сортировка по плотности
c := plt[j]; plt[j] := plt[i]; plt[i] := c;
st := name[j]; name[j] := name[i]; name[i] := st;
for i := 1 to 10 do writeln(name[i]:10, ' ', plt[i]:15:2);
Окно вывода:
Россия 8.58
Бразилия 25.26
Мексика 65.47
Индонезия 144.48
Китай 147.07
Нигерия 169.35
Пакистан 277.26
Индия 430.36
Бангладеш 1273.53

*Текст задания приводится исключительно в образовательных целях для более полного понимания решения.

Предыдущий-следующий

уч.2017

Босова

Босова

уч.2023,2016

Босова

(Раб тетрадь)

Босова

уч.2023,2017

Босова

(Сам и контр)

уч.2013

Габриелян

Габриелян

уч.2026,2019

Бархударов

Бархударов

уч.2012

Михеева

(новый курс)

Пасечник

(Раб тетрадь)

Миндюк

уч.2026,2019

Комменты вк