Question

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

Answer 1

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]<a[j]) then
    begin
      buf := a[i];
      a[i]:= a[j];
      a[j]:= buf;
    end;
      writeln();
     writeln('top --> ',a[20],' ',a[19],' ',a[18]);
end.

Answer 2

// 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