Отсортируйте 15 РАНДОМНЫХ чисел:
1) По возрастанию;
2) По убыванию.
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+1 to 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.
1) По возрастанию;
2) По убыванию.
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+1 to 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
Answers & Comments
program sort_random_chislsa;
const n=15;
var i,j,x:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln;
writeln('Вот и сортировка по возрастанию');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
writeln('Теперь сортируем это по убыванию');
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln('Вот так');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]>a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
end.