barash8
10.04.2023 16:33

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bedboy777
07.03.2020 14:04
1 Глобальная компьютерная сеть – это:
Г совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему.

2 Локальные компьютерные сети как средство общения используются только для:
г) осуществления обмена данными между несколькими пользователями, организации доступа к устройствам вывода и к общим информационным ресурсам местного значения.

3 Телеконференция – это:
в) система обмена информацией между абонентами компьютерной сети;

4 Компьютер, подключенный к Интернету, обязательно имеет:
а) IP-адрес;

5 Гипертекст – это:
б) структурированный текст, в котором могут осуществляться переходы по выделенным меткам;

6 Серверы Интернет, содержащие файловые архивы, позволяют
а) скачивать необходимые файлы;

7 Россия имеет следующий домен верхнего уровня в Интернете
б) ru;

8 Транспортный протокол (TCP) обеспечивает
а) разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения; (в учебнике написано так, но это неправда, конечно. TCP и IP - разные протоколы, TCP не требует наличия каких-то "IP-пакетов")

9 HTML (Hyper Text Markup Language) является:
а) средством создания Web-страниц;

10 Задан адрес электронной почты в сети Internet [email protected] Каково имя владельца этого электронного адреса?
б) user_name; (то, что стоит до собачки @ - имя, после - домен)

11 Модем – это:
г) техническое устройство.

12 Браузеры (например, Microsoft Internet Explorer) являются:
г) средством просмотра Web-страниц.

13 Почтовый ящик абонента электронной почты представляет собой:
б) часть памяти на жестком диске почтового сервера, отведенную для пользователя;
0,0(0 оценок)
Ответ:
nikitinaani19
10.07.2022 14:30
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота