Переведите из паскаля в питон program naselenie; varр: array [1..10] of real;n: array [1..10] of string;i, j, imin: integer;х: real;r: string;constk: 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);beginn[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 dobeginimin:=i;for j:=i+1 to 10 doif p[j]<p[imin] thenimin:=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 dowriteln (n[i], ‘ — ‘, p[i]);end.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
2) Программа выводит четные элементы массива
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.