Изменить массив таким образом,чтобы все элементы массива,стоящие до максимального элемента этого массива бы ли бы отсортированы по возрастанию элементы стоящие после него-по убыванию.
Изменить массив таким образом,чтобы все элементы массива,стоящие до максимального элемента этого массива бы ли бы отсортированы по возрастанию элементы стоящие после него-по убыванию.
Гость
Ответ(ы) на вопрос:
Гостьconst
n=15;
var
a:array[1..n] of integer;
i,j,k,t:integer;
begin
Randomize;
Writeln('Исходный массив');
k:=1;
for i:=1 to n do
begin
a[i]:=Random(99)+1;
Write(a[i],' ');
if a[i]>a[k] then k:=i
end;
Writeln;
for i:=1 to k-2 do
for j:=1 to k-2 do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
for i:=k+1 to n-1 do
for j:=k+1 to n-1 do
if a[j] < a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Упорядоченный массив');
for i:=1 to n do Write(a[i],' ');
end.
Не нашли ответ?
Похожие вопросы