/// vì sau khi nhập mảng thì lại trộn mảng và sắp xếp

/// nên thực hiện trên 1 mảng cũng được

uses crt;
var a:array[0..30] of longint;
    i,j:byte;
    tmp:longint;
begin
    clrscr;
    for i:=1 to 20 do read(a[i]);
    for i:=1 to 19 do
        for j:=i+1 to 20 do
            if a[i] > a[j] then
                begin
                    tmp:=a[i];
                    a[i]:=a[j];
                    a[j]:=tmp;
                end;
    for i:=1 to 20 do write(a[i],' ');
readln;
end.

uses crt;

var a:array[1..100]of integer;

i,n,max,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

write('Vi tri cua so lon nhat la: ');

for i:=1 to n do 

  if max=a[i] then write(i:4);

writeln;

dem:=0;

for i:=1 to n do 

  if max=a[i] then inc(dem);

writeln('So luong phan tu lon nhat trong day la: ',dem);

readln;

end.