Массив 7х7

[brz]

В массиве 7х7 целого типа в каждом столбце расставить в обратном порядке элементы расположенные между max u min

[Vanta11a]

Ну так в чем проблема то?

Находите максимальный и минимальный элементы, потом от i := index_min до (index_max / 2) меняете местами элементы i и index_max - i.
Ну еще предусмотреть, что количество элементов может быть нечетным, тогда index_max / 2 нужно округлить в меньшую сторону.

[Juffin]

Ну еще предусмотреть, что количество элементов может быть нечетным, тогда index_max / 2 нужно округлить в меньшую сторону.

Если index_max - целочисленная переменная, то она всегда будет округляться в меньшую сторону.

[Serge_Bliznykov]

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

Если index_max - целочисленная переменная, то она всегда будет округляться в меньшую сторону.

Ребят, это же Паскаль. В нём есть операция целочисленного деления: DIV
поэтому, хоть чётное Index_max, хоть нечётное,
Index_max div 2 - всегда даст целое число (и в случае нечётного Index_max это число будет меньше (Index_max/2)

только цикл нужно "крутить до до Index_max/2", а до половины смещения между index_min и index_max
и ещё плюс учесть, что минимальный может быть расположен ПРАВЕЕ максимального (т.е. index_min > index_max )

т.е. я бы предложил примерно такое решение:

for j:=1 to 7 do begin
  Index_Min := 1;
  Index_Max := 1;
  {найдём индексы минимального и максимального элементов}
  for i:=1 to 7 do begin
    if A[i,j]>A[Index_Max, j] then Index_Max := i;
    if A[i,j]<A[Index_Min, j] then Index_Min := i;
  end;
  {если возможно, то переставим элементы в J-м столбце 
         между минимальными максимальным элементами в обратном порядке}
  n := abs(Index_Max - Index_Min) - 1; {сколько элементов между минимальным и максимальными элементами}
  if n>1 then begin
     if Index_Min<Index_Max then 
        for i:= 1 to (n div 2) do begin
           temp1 := A[i_Index_Min,j];
           A[i,j] := A[Index_Max-i,j];
           A[Index_Max-i,j] := temp1;           
        end
     else
        for i:= 1 to (n div 2) do begin
           temp1 := A[i_Index_Max,j];
           A[i,j] := A[Index_Min-i,j];
           A[Index_Min-i,j] := temp1;           
        end;          
  end;
end;

p.s. а что это Вы трёхдневную тему подняли?

[brz]

Спасибо большое ребята!очень вам благодарен))