Question

Имеется таблица самых высоких гор мира. Найти и вывести первых 3 высоких гор. Паскаль, помогитеееееее срочноооо

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

type
  Mountain=(string,integer);
    
procedure Print3Highs(t:array of Mountain);
begin
  t.OrderByDescending(x->x[1]).Take(3).Println(NewLine)
end;

begin
  var a:array of Mountain:=Arr(
      Rec('Эльбрус',5642),
      Rec('Винсон',4892),
      Rec('Килиманджаро',5895),
      Rec('Эверест',8848),
      Rec('Аконкагуа',6959),
      Rec('Мак-Кинли',6194));
   Print3Highs(a)
end.

Результат
(Эверест,8848)
(Аконкагуа,6959)
(Мак-Кинли,6194)

Answer 2

Конечно, я помогу вам! Вот пример кода на языке Паскаль, который выводит первые три самых высоких горы мира:

pascalCopy code
program HighestMountains;

type
  Mountain = record
    Name: string;
    Height: real;
  end;

var
  Mountains: array[1..10] of Mountain; // Предположим, что у вас есть массив из 10 гор
  i, j: integer;
  temp: Mountain;

begin
  // Заполняем массив данными о горах (название и высота)
  Mountains[1].Name := 'Эверест';
  Mountains[1].Height := 8848;
  // Добавьте остальные горы аналогично

  // Сортируем массив гор по убыванию высоты, используя сортировку пузырьком
  for i := 1 to 9 do
    for j := 1 to 10 - i do
      if Mountains[j].Height < Mountains[j + 1].Height then
      begin
        temp := Mountains[j];
        Mountains[j] := Mountains[j + 1];
        Mountains[j + 1] := temp;
      end;

  // Выводим информацию о первых трех самых высоких горах
  writeln('Самые высокие горы мира:');
  for i := 1 to 3 do
    writeln(i, '. ', Mountains[i].Name, ' - ', Mountains[i].Height:0:2, ' м');
end.

Пожалуйста, замените данные в массиве Mountains на реальные данные о самых высоких горах мира. Этот код сортирует горы по высоте и выводит информацию о первых трех.