Задан целочисленный массив, состоящий из n элементов

[maxim1592]

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

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.

[Mad_Cat]

If Matrix[X,Y] < Min Then Begin Min := Matrix[X,Y]; XMin := X; YMin := Y; End;

эт раз
а как согласуется ваша матрица и одномерный массив, данный по заданию? эт два

[maxim1592]

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

[Mad_Cat]

const nmax=10;
var 
  a:array[0..nmax] of integer;
  i,imin,imax,n:integer;
begin
  Randomize;
  readln(n);
  for i:=1 to n do 
  begin
    a[i]:=random(n+1)-n div 2;
    write(a[i]:4);
  end;
  writeln;
  case n mod 2= 0 of
    true:
      begin
        imax:=1;imin:=1;
        for i:=2 to n do
          begin
            if a[i]>a[imax] then imax:=i;
            if a[i]<a[imin] then imin:=i;
          end;
        a[1]:=a[1]+a[imax];
        a[imax]:= a[1]-a[imax];
        a[1]:= a[1]-a[imax]; 
        a[n]:=a[n]+a[imin];
        a[imin]:= a[n]-a[imin];
        a[n]:= a[n]-a[imin];
      end;
   false:
    begin
      i:=1;
      while i<=n do
        begin
          if a[i] mod 2 = 0 then 
            begin
              for imin:=i to n-1 do
                a[imin]:=a[imin+1];
              n:=n-1;
        end
          else inc(i);
        end;
    end;
 end;   
      for i:=1 to n do
        write(a[i]:4);
 writeln;   
end.

10
-2 1 -3 0 4 -5 0 0 -4 -4
4 1 -3 0 -2 -4 0 0 -4 -5

7
1 2 3 2 -3 -1 2
1 3 -3 -1

[maxim1592]

выдает ошибку где помечено

const nmax=10;
var 
  a:array[0..nmax] of integer;
  i,imin,imax,n:integer;
begin
  Randomize;
  readln(n);
  for i:=1 to n do 
  begin
    a[i]:=random(n+1)-n div 2;
    write(a[i]:4);
  end;
  writeln;
 case n mod 2= 0 of здесь выдает ошибку
      begin
        imax:=1;imin:=1;
        for i:=2 to n do
          begin
            if a[i]>a[imax] then imax:=i;
            if a[i]<a[imin] then imin:=i;
          end;
        a[1]:=a[1]+a[imax];
        a[imax]:= a[1]-a[imax];
        a[1]:= a[1]-a[imax]; 
        a[n]:=a[n]+a[imin];
        a[imin]:= a[n]-a[imin];
        a[n]:= a[n]-a[imin];
      end;
   false:
    begin
      i:=1;
      while i<=n do
        begin
          if a[i] mod 2 = 0 then 
            begin
              for imin:=i to n-1 do
                a[imin]:=a[imin+1];
              n:=n-1;
        end
          else inc(i);
        end;
    end;
 end;   
      for i:=1 to n do
        write(a[i]:4);
 writeln;   
end.

[Mad_Cat]

выдает ошибку где красным помечено

а у меня работает)

[maxim1592]

пишет выражение выбора в операторе case должно иметь тип integer, byte, char, интервальный или перечисленый

[Mad_Cat]

а у меня какой?

Перечисляемый тип (сокращённо перечисле́ние, англ. enumeration, enumerated type) — в программировании тип данных, чьё множество значений представляет собой ограниченный список идентификаторов.

boolean и есть перечисляемый

[maxim1592]

а что тогда там может быть не так???? почему оно ошибку выдает???

[Mad_Cat]

почему оно ошибку выдает

видимо потому что мы пишем в разных компиляторах паскаля