Это убывание массива, переделайте в массив возрастания program rost; var n,i,j,x,imax:integer;
a:array[1..10] of integer;
begin
for i:=1to 10do read(a[i]);
for i:=1to 10 do write(a[i], ' ' );
for i:=1to 9do
begin
imin:=i;
for j:=i+1to 10 do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x
end;
for i:=1to 10do write (a[i], ' ' );
end.
a:array[1..10] of integer;
begin
for i:=1to 10do read(a[i]);
for i:=1to 10 do write(a[i], ' ' );
for i:=1to 9do
begin
imin:=i;
for j:=i+1to 10 do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x
end;
for i:=1to 10do write (a[i], ' ' );
end.
More Questions From This User See All