Задача на сравнения Опции

[maq]

Ребят, помогите полегче решить задачу, а то фигня какая-то получается...

Даны действит. числа a,b,c,d
Разраб. программу, кот. сравнивает эти числа
- Если a<=b<=c<=d, то наименьшее число заменить наибольшим из них
- Если a>b>c>d, то числа оставить без изменений, а иначе наибольшее заменить наименьшим.

Интересует в общем только вторая часть. Спасибо заранее.

[volvo]

Вот так (кстати, этот алгоритм и предлагал во втором посте klem4 ):

program la;
uses crt;
var
  ar: array[1 .. 4] of integer;
  i, min, max: integer;
begin;
  clrscr;
  writeln('Vvedite a b c d:');
  readln(ar[1], ar[2], ar[3], ar[4]);

  min := 1; max := 1;
  for i := 2 to 4 do begin
    if ar[max] < ar[i] then max := i;
    if ar[min] > ar[i] then min := i;
  end;

  if (ar[1]<=ar[2]) and (ar[2]<=ar[3]) and (ar[3]<=ar[4])
  then ar[min] := ar[max]
  else
    if (ar[1]>ar[2]) and (ar[2]>ar[3]) and (ar[3]>ar[4]) then
    else ar[max] := ar[min];

  write('a = ',ar[1],' b = ',ar[2],' c = ',ar[3],' d = ',ar[4]);
  readkey;
end.