Program a16_76;
uses crt;
const n=10;
var a:array[1..n] of integer;
      i,k,max,min,n1,n2:integer;
BEGIN
clrscr;
randomize;
writeln('Рост каждого человека');
for i:=1 to n do
  begin
    a[i]:=random(30)+160;
    write(a[i]:4);
  end;
writeln;
max:=a[1];
n1:=1;
min:=a[1];
n2:=1;
writeln('После перестановки');
for i:=1 to n do
  begin
    if a[i]>max then begin max:=a[i]; n1:=i; end;
    if a[i]   end;
k:=a[1]; a[1]:=a[n1]; a[n1]:=k;
k:=a[n]; a[n]:=a[n2]; a[n2]:=k;
for i:=1 to n do
  begin
    write(a[i]:4);
  end;
readln;
END.