Напиши программу ** ПАСКАЛЕ,только чтобы 3 элемента выводил!!!

Question

Напиши программу НА ПАСКАЛЕ,только чтобы 3 элемента выводил!!!

---

Answer 1

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

begin
  var a:=ArrRandom(20,350,430); a.Println;
  a.OrderByDescending(t->t).Take(3).Println
end.

Пример
403 416 364 382 390 365 357 428 387 414 395 420 428 423 364 383 397 391 422 392
428 428 423

Comments

спасибо большое,а не могли бы немного подробнее расписать,по какому принципу работает?и что это значит?А учитель задаст вопрос,а я и ответить не смогу

---

спасибо вам,огромное)

Answer 2

Var a: array  [1..20] of integer;
i,j : integer;   
buf : integer;   
cnt : integer;
begin
 for i:=1 to 20 do begin
                   a[i] := random(100)+200;
                   write(a[i],' ');
                   end;
  for i:=1 to 20 do 
   for j:= 1 to 20 do   
      if(a[i]    begin
      buf := a[i];
      a[i]:= a[j];
      a[j]:= buf;
    end;
      writeln();
     writeln('top --> ',a[20],' ',a[19],' ',a[18]);
end.