Задан целочисленный массив

[maxim1592]

Задан целочисленный массив, состоящий из n элементов (число n ввести с клавиатуры). Если число элементов окажется чётным, то максимальный элемент поместить в начало массива, а минимальный элемент поместить в конец массива, в противном случае удалить из массива все чётные элементы.

[ZX Spectrum-128]

Нахождение максимума (минимума) найти можно тут:
http://programmersforum.ru/showthread.php?t=70310

[maxim1592]

"Если число элементов окажется чётным, то максимальный элемент поместить в начало массива, а минимальный элемент поместить в конец массива, в противном случае удалить из массива все чётные элементы."
В программе минимальный элемент меняется местами с максимальным. Как сделать чтобы выполнялось условие которое в ковычках????

Program ReplaceMinAndMax;
Var
 Matrix:Array[1..3,1..3] of Byte = (1,2,3,4,5,6,7,8,9);
 PP:Byte;
 Max,Min:Byte;
 XMin,YMin,XMax,Ymax:Byte;
 X,Y:Byte;
Begin
 XMin := 1;
 YMax := 1;
 XMax := 1;
 YMax := 1;
 Max := Matrix[1,1];
 Min := Matrix[1,1];
 For Y := 1 to 3 do
  For X := 1 to 3 do
   Begin
    If Matrix[X,Y] > Max Then  Begin Max := Matrix[X,Y]; XMax := X; YMax := Y; End;
    If Matrix[X,Y] < Max Then Begin Min := Matrix[X,Y]; XMin := X; YMin := Y; End;
   End;
 PP := Matrix[XMax,YMax];
 Matrix[XMax,YMax] := Matrix[Xmin,YMin];
 Matrix[XMin,YMin] := PP;
End.

[ZX Spectrum-128]

Массив, скорее всего одномерный. Нужно переписать код под одномерный массив.
И удаление элемента делается сдвигом массива влево, который также описан по ссылке.
Пример:
1 2 3 4 5
Нужно удалить третий элемент. Сдвигаете элементы влево
Получается
1 2 4 5 5
Для статических массивов хвост массива либо обнуляют, либо не показывают при выводе.
Для динамических используют процедуру setlength(a,n-1)
Где n - размерность массива. Setlength при переназначении длины массива оставит в данном случае 4 элемента, последний же удалит.
Окончательно получим удаление третьего элемента.

[maxim1592]

что-то не получается...напишите программу

[maxim1592]

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

[ZX Spectrum-128]

Максимальный элемент с минимальным поменяйте самостоятельно.

const
  nmax = 100;
var
  arr: array[1..nmax] of integer;
  temp,max,min,imax,imin,n,i, j, m: integer;
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);

  for i := 1 to n do
    begin
      arr[i] := random(50)-25;
      write(arr[i]:4);
    end;
  writeln;
  if not odd(n) then
    begin
      max:=arr[1]; min:=arr[1];imax:=1;imin:=1;
      for i := 2 to n do
        begin
          if arr[i]>max then
            begin
              max:=arr[i];
              imax:=i;
            end;
          if arr[i]<min then
            begin
              min:=arr[i];
              imin:=i;
            end;
        end;
      writeln('Максимальный элемент = ',max,' в позиции ',imax);
      writeln('Минимальный элемент = ',min,' в позиции ',imin);
    end
  else
    begin
      m := n;
      i := 1;
      while i <= m do
        if not odd(arr[i]) then
          begin
            for j := i to m - 1 do
              arr[j] := arr[j+1];
            m := m - 1
          end
        else
          i := i + 1;
    end;
  for i:= 1 to m do
    write(arr[i]:4);
  readln;
end.

[Mad_Cat]

http://programmersforum.ru/showthread.php?t=261697

[ZX Spectrum-128]

Наплодил тс тем, черт ногу сломает.