[Paskal]Одномерные массивы

[1Sol]

Суть темы: как сделать так, чтобы после A[imax]:=max последующие элементы массива встали в обратном порядке?
N=6
задано стало
A[1]=3 A[1]=3
A[2]=6 A[2]=6
A[3]=1 A[3]=5
A[4]=2 A[4]=4
A[5]=4 A[5]=2
A[6]=5 A[6]=1

[VKorablev]

Сообщение от 1Sol

Суть темы: как сделать так, чтобы после A[imax]:=max последующие элементы массива встали в обратном порядке?

Алгоритм "пузырька" вам в помощь.

[Mad_Cat]

Алгоритм "пузырька" вам в помощь.

зачем? тут же разворот а не сортировка

[ByAlex]

Вот -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..10] of integer;
  i,j,max,pos,t:integer;
begin
  writeln('Vvedite massive A[10]:');
  for i := 1 to 10 do
  begin
    write('A[',i,'] = ');
    readln(a[i]);
  end;
  pos:=0;
  max:=a[1];
  for i := 1 to 10 do
    if a[i]>max then
    begin
      max:=a[i];
      pos:=i;
    end;
  writeln;
  for i := pos+1 to 10 do
  begin
    for j := pos+1 to 9 do
      if a[j]<a[j+1] then
      begin
        t:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=t;
      end;
  end;
  write('Result = ');
  for i := 1 to 10 do
    write(a[i],' ');
  readln;
end.

[ByAlex]

Сообщение от Mad_Cat

зачем? тут же разворот а не сортировка

После наибольшего элемента в матрице расположить элементы за ним по убыванию, ему так надо!

[Mad_Cat]

последующие элементы массива встали в обратном порядке

а не по убыванию
то есть было 7 8 5 4 1 2 стало 7 8 2 1 4 5

[ByAlex]

Сообщение от Mad_Cat

а не по убыванию
то есть было 7 8 5 4 1 2 стало 7 8 2 1 4 5

Аааа, понял! Не внимательно прочитал. Ошибочка.

[1Sol]

Как сделать в обратном порядке, я понял.
for i:=1 to trunc(N/2) do
begin
buf := A[i];
A[i] := A[N-i+1];
A[N-i+1] := buf;
end;
А вот как заставить работать после определённого элемента - не знаю.

[Mad_Cat]

for i:=imax to imax+(N-imax) div 2 do 
begin 
buf := A[i]; 
A[i] := A[N-i+1]; 
A[N-i+1] := buf; 
end;

[1Sol]

Сообщение от Mad_Cat

for i:=imax to imax+(N-imax) div 2 do 
begin 
buf := A[i]; 
A[i] := A[N-i+1]; 
A[N-i+1] := buf; 
end;

все элементы в обратном порядке, либо вообще не работает.