[MuzFAN]

Помогите довести задачу до ума.
"Дан массив размера N. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами."

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

program Project1;   const   n = 10; type   TIntArray = array [0 .. n - 1] of Integer;   function Zap: TIntArray; var   i: Integer; begin   Randomize;   for i:=0 to n - 1 do     Result[i] := Random(n); end;   function GetMinElementIndex(IntArray: TIntArray): Integer; var   minInd, i: Integer; begin   minInd := 0; for i := 0 to n - 1 do   if IntArray[i] < IntArray[minInd] then   minInd := i;   Result := minInd; end;   function GetMaxElementIndex(IntArray: TIntArray): Integer; var   maxInd, i: Integer; begin   maxInd := 0; for i := 0 to n - 1 do   if IntArray[i] > IntArray[maxInd] then    maxInd := i;    Result := maxInd; end;   var   begin        ReadLn; end.

Админ: Учимся пользоваться тегами!

Написал часть задачи, не пойму как можно переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами. Заранее спасибо)

[lmikle]

Путь Idx1 и Idx2 индексы мин и макс элементов, причем Idx1 < Idx2 (если они равны, то делать ничего не надо, если Idx1 > Idx2 - то поменять их местами).

Тогда при цикле I от Idx1 до (Idx2 div 2) элемент A[i] будет соответсвовать A[Idx2-I+Idx1]. Просто меняешь местами.

[DelphiM0ZG]

У меня получилось так. Можно обойтись и без дополнительного массива, но как пример, думаю, что этого будет достаточно.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

program Project2;   {$APPTYPE CONSOLE}   uses   SysUtils;   Const   N0=20;   Type   Massif=Array[0..N0-1] Of Integer;   Var   Mas, Masf: Massif;   a: Integer;   i, N, MinInd, MaxInd: Byte;   begin     Repeat     Write('Razmer (2<N<20): N = ');     ReadLn(N);   Until ((N>2) And (N<=20));     WriteLn;   WriteLn('Ishodnyi massiv:');   WriteLn;   Randomize;   For i:=0 To N-1 Do     Begin       Mas[i]:=Random(1000)-Random(1000);       WriteLn('Mas[', i+1, '] = ', Mas[i]);     End;     MinInd:=0;   MaxInd:=0;   For i:=0 To N-1 Do     Begin       If (Mas[MinInd]>Mas[i]) Then         MinInd:=i;       If (Mas[MaxInd]<Mas[i]) Then         MaxInd:=i;     End;     WriteLn;   WriteLn('----------------');   WriteLn;     WriteLn('Min = ', Mas[MinInd]);   WriteLn('Max = ', Mas[MaxInd]);     WriteLn;   WriteLn('Poluchennyi massiv:');   WriteLn;     If (Abs(MaxInd-MinInd)<=2) Then     WriteLn('Mejdu minimalnym i maksimalnym elementami perestavlyat nechego!')   Else If (MaxInd>MinInd) Then     Begin       For i:=MinInd+1 To MaxInd-1 Do         Masf[i]:=Mas[i];       For i:=MinInd+1 To MaxInd-1 Do         Mas[MaxInd-i+MinInd]:=Masf[i];     End   Else If (MaxInd<MinInd) Then     Begin       For i:=MaxInd+1 To MinInd-1 Do         Masf[i]:=Mas[i];       For i:=MaxInd+1 To MinInd-1 Do         Mas[MinInd-i+MaxInd]:=Masf[i];     End;     For i:=0 To N-1 Do     WriteLn('Mas[', i+1, '] = ', Mas[i]);     ReadLn; end.

[MuzFAN]

DelphiM0ZG, спасибо)