PascalABC.NET 3.3
const m=10;
var
k:array[1..m] of integer=
(58100,81200,10300,5190,39100,57200,38500,9800,5060,57800);
s:array[1..m] of real=
(244.1,357,132,43.1,504.8,301.2,312.7,92.0,337,551);
n:array[1..m] of string;
p:array[1..m] of real;
k1:integer; r:real; n1:string;
i,j:integer;
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 m do p[i]:=k[i]/s[i];
for j:=1 to m-1 do
for i:=1 to m-j do
if p[i]>p[i+1] then begin
r:=p[i]; p[i]:=p[i+1]; p[i+1]:=r; // swap(p[i],p[i+1]);
k1:=k[i]; k[i]:=k[i+1]; k[i+1]:=k1; //swap(k[i],k[i+1]);
r:=s[i]; s[i]:=s[i+1]; s[i+1]:=r; //swap(s[i],s[i+1]);
n1:=n[i]; n[i]:=n[i+1]; n[i+1]:=n1; //swap(n[i],n[i+1]);
end;
for i:=1 to m do
writeln(n[i],' ':15-length(n[i]),p[i]:5:2);
end.
Результат:
Финляндия 15.01
Испания 77.46
Греция 78.03
Франция 104.90
Португалия 106.52
Дания 120.42
Польша 123.12
Италия 189.91
Германия 227.45
Великобритания 238.02