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

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)