Занесите информацию о десяти европейских странах в массивы

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

Ответ

Площадь приведена в тыс. км2, численность населения — в тыс. чел.

program naselenie;
var
р: array [1..10] of real;
n: array [1..10] of string;
i, j, imin: integer;
х: real;
r: string;
const
k: array [1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800);
s: array [1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551);
begin
n[1]:=’Великобритания’;
n[2]:=’Германия’;
n[3]:=’Греция’;
n[4]:=’Дания’;
n[5]:=’Испания’;
n[6]:=’Италия’;
n[7]:=’Польша’;
n[8]:=’Португалия’;
n[9]:=’Финляндия’;
n[10]:=’Франция’;
for i:=1 to 10 do
р[i]:=k[i]/s[i];
for i:=1 to 9 do
begin
imin:=i;
for j:=i+1 to 10 do
if p[j]<p[imin] then
imin:=j; x:=p[i];
р[i]:=р[imin];
p[imin]:=х;
r:=n[i];
n[i]:=n[imin];
n[imin]:=r;
end;
writeln (‘Отсортированная информация’);
for i:=1 to 10 do
writeln (n[i], ‘ — ‘, p[i]);
end.

Опубликовано: 15.11.2019 Обновлено: 15.11.2019
Поделись с друзьями

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

десять + 9 =