МАССИВ.

[vralayala]

В массиве между min и max удалить четные элементы.

program tonyyy;
 const n=20;
 var a:array[1..n]of integer;
 i,m1,m2:integer;
 begin
 randomize;
 for i:=1 to n do begin
 a[i]:=random(9);
 write(a[i],' ');
 END;
 writeln;
 m1:=a[i];
 m2:=a[i];
 for i:=1 to n do begin
 if (m1>a[i]) then
 m1:=a[i];
 if (m2<a[i]) then
 m2:=a[i];
 end;
 if(i>m1) and (a[i] mod 2=0) and (i<m2) then

НАЧАЛО ПРАВИЛЬНОЕЕ??!!




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Вадим Мошев]

Почти.

m1:=a[i];
m2:=a[i];

Здесь вместо i надо написать 1

[vralayala]

а дальше каковы действия?

[Serge_Bliznykov]

мыслите Вы хорошо, но упускаете один важный момент.
Обратите внимание, что Вам не нужно найти ВЕЛИЧИНУ минимального и максимального значения, это верно (с поправкой от Вадима Мошева)
но Вам нужно найти ПОЗИЦИИ элементов с максимальной и минимальной величиной.
Значит, Вам нужно запоминать индексы.
Выглядеть поиск будет примерно так:

....
var 
  MaxValueIndex, MinValueIndex : integer;
....
 randomize;
 for i:=1 to n do begin
    a[i]:=random(9);
    write(a[i],' ');
 end;
 writeln;
 MaxValueIndex := 1; {считаем, что первый элемент массива максимален}
 MinValueIndex := 1; {считаем, что первый элемент массива минимален}
 for i:=1 to n do begin
    if a[i]>a[MaxValueIndex] then MaxValueIndex := i;
    if a[i]<a[MinValueIndex] then MinValueIndex := i;
 end;

 WriteLn(' Maximalnyi element = ', a[MaxValueIndex],' ego index v massive = ', MaxValueIndex );
 WriteLn(' Minimalnyi element = ', a[MinValueIndex],' ego index v massive = ', MinValueIndex );

... 
   а теперь Вам нужно проверить, 
   как взаимно расположены максимальный и минимальный элементы 
   (кто из них правее, кто левее) и если условия позволяют, то произвести удаление. 
   удаление в статическом массиве может быть произведено 
    одним единственным способом: все элементы расположенные после удаляемого,
        сдвигаются на место удаляемого
    есть ещё вариант. Если условие задачи допускает, 
    то можно ограничиться тем, что выдать якобы "новый" массив на экран, 
    это проще - не надо ничего сдвигать, удаляемые элементы просто не выводим на экран и всё.
    Но в вашем случае, скорее всего, такой вариант решения не будет принят.
    Придётся заниматься сдвигами в циклах...