Дан массив А1, …, А40.

[wahya]

Дан массив А1, …, А40.
Замените все элементы, стоящие между Amax и Amin или Amin и Amax, на 0.

[Zempery]

...
n:=0;
max:=a[i];
for i:=1 to n do 
  if max>a[i] then begin
    max:=max;
    n:=i
  else begin
    max:=a[i];
    n:=i;
  end;
min:=a[i]
for i:=1 to n do 
  if min<a[i] then begin
    min:=min;
    k:=i;
  else begin
    min:=a[i];
    k:=i;
  end;
for i:=n to k do
a[i]:=0;
...

вроде как то так

[Stilet]

Ну поскольку язык не указан Приведу рабочий пример:

MODULE ObxHello0;

	IMPORT StdLog,ObxRandom;

	PROCEDURE Do*;
	VAR a:ARRAY(10) OF REAL;
	 maxi,mini,i:INTEGER;
	BEGIN
	 maxi:=0; StdLog.Clear;
	 FOR i:=0 TO LEN(a)-1 DO
	   a[i]:=50-ObxRandom.Uniform()*100; 
	   IF a[maxi]<a[i] THEN maxi:=i; END;
	   IF a[mini]>a[i] THEN mini:=i; END;
		StdLog.Real(a[i]); 
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	 END;
	StdLog.Ln;StdLog.Int(maxi);
	StdLog.Tab;StdLog.Int(mini);

   IF maxi<mini THEN
    i:=maxi;maxi:=mini;mini:=i;
   END;

	 FOR i:=mini TO maxi DO
	  a[i]:=0;
    END;	
StdLog.Ln;
	 FOR i:=0 TO LEN(a)-1 DO
	  StdLog.Real(a[i]);StdLog.Ln;
    END;	

	END Do;

END ObxHello0.

Результаты:

-38.27953221661948
35.9020352763599
5.506889780753706
-45.7034548724552
-37.96604135444669
4.742955814461669
14.85837365726865
24.68605771413355
-1.427998557420447
-0.3717545654493172

1 3
-38.27953221661948
0.0
0.0
0.0
-37.96604135444669
4.742955814461669
14.85837365726865
24.68605771413355
-1.427998557420447
-0.3717545654493172