номер 12 (страница 55) гдз по информатике 9 класс учебник Босова, Босова

const
SIZE = 10;
type
Country = record
name: string;
k: integer;
s: real;
density: real;
end;
var
countries: array[1..SIZE] of Country;
i, j: integer;
t: Country;
procedure CalculateDensity(var country: Country);
begin
if country.s ‹› 0 then
country.density := country.k / country.s
else
country.density := 0;
end;
begin
writeln('Введите информацию о 10 странах:');
for i := 1 to SIZE do
begin
write('Название страны: ');
readln(countries[i].name);
write('Численность населения: ');
readln(countries[i].k);
write('Площадь страны: ');
readln(countries[i].s);
CalculateDensity(countries[i]);
end;
for i := 1 to SIZE - 1 do
begin
for j := i + 1 to SIZE do
begin
if countries[j].density ‹ countries[i].density then
begin
t := countries[i];
countries[i] := countries[j];
countries[j] := t;
end;
end;
end;
writeln('Страны в порядке возрастания плотности населения:');
for i := 1 to SIZE do
writeln(countries[i].name);
end.