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.