Занесите информацию о 10-ти европейских странах в массивы. Выведите названия стран в порядке возрастания плотности их населения
195
404
Ответы на вопрос:
Площадь приведена в тыс.км^2, численность населения - в тыс. чел.
program z_11;
var p:array [1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551);
n: array [1..10] of string;
i, j, imin: integer;
x: real;
r: string;
const
k: array [1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800);
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 9 do begin
imin:=i;
for j:=i+1 to 10 do
if p[j] x:=p[i];
p[i]:=p[imin];
p[imin]:=x;
r:=n[i];
n[i]:=n[imin];
n[imin]:=r;
end;
writeln ('Отсортированная информация');
for i:=1 to 10 do
writeln (n[i], ' - ', p[i]);
END
program z_11;
var p:array [1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551);
n: array [1..10] of string;
i, j, imin: integer;
x: real;
r: string;
const
k: array [1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800);
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 9 do begin
imin:=i;
for j:=i+1 to 10 do
if p[j] x:=p[i];
p[i]:=p[imin];
p[imin]:=x;
r:=n[i];
n[i]:=n[imin];
n[imin]:=r;
end;
writeln ('Отсортированная информация');
for i:=1 to 10 do
writeln (n[i], ' - ', p[i]);
END
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Farzalievik13.06.2023 21:47
-
Twister0404.12.2020 21:14
-
mihanesterov03.04.2021 00:12
-
0mixa004.05.2022 16:42
-
Ira21Irina2123.02.2023 21:12
-
aiphone2003209.12.2022 03:10
-
IKarapuzikI09.09.2021 02:40
-
StarPerk31.07.2021 04:28
-
mrkrbnv07.07.2021 16:56
-
evgen22region24.03.2021 02:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.