Массивы(одномерные)

[lilia2121]

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

[IT-man]

Type Vector=array[1..20] of real;

 var p:vector;
  i:integer;
  max,min:real;
procedure exchange(var a,b:real);
var c:real;
begin
c:=a; a:=b; b:=c; end;
 
procedure Sorting (n:integer; Var x:Vector);
var i:integer; swop:boolean;
begin
repeat
swop:=false;
for i:=1 to n-1 do
if x[i]<x[i+1] then begin
exchange(x[i],x[i+1]); swop:=true; end;
n:=n-1;
until not swop;
end;

 begin
 max:=-9999;min:=9999;
 for i:=1 to 20 do
 begin
 readln(p[i]);
 if p[i]>max then max:=p[i];
 if p[i]<min then min:=p[i];
 end;
 for i:=1 to 20 do
 write(p[i]:6:2);
 writeln;
 writeln('max=',max:6:2);
 writeln('min=',min:6:2);
 if max<>min then begin
 writeln('max<>min ');
 sorting(20,p);
 end
 else begin
  writeln('max=min ');
 for i:=1 to 20 do
  if odd(i) then p[i]:=1;
  end;
 for i:=1 to 20 do
  write (p[i]:6:2);
 readln;
 end.

[lilia2121]

ну так уж поставлено условие задачи

[ROMA2PVT]

А что максимум может быть равен минимуму...

[IT-man]

А что максимум может быть равен минимуму...

да, если все элементы одинаковы!

[ROMA2PVT]

да, если все элементы одинаковы!

Ну эт то понятно.Задание глуповатое.