Сделайте пожалуйста,очень нужно ** завтра,задание под вопросом

Question

Сделайте пожалуйста,очень нужно на завтра,задание под вопросом

---

Answer 1

Полный текст программы:

var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.