Переведите из паскаля в питон 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.​

natalka30112000    1   14.12.2020 08:53    5