задача на массивы, с наименьшим и наибольшим Опции

[nutty]

всем дорого времени суток)
пожалуйста помогите исправить что бы норм работало,а то я что то уже запутался...
условие: дан массив А1...А40 заменить все элементы стоящие между Амах и Амин или Амин и Амах на 0
вот что у меня имеется...

program masminmax;
uses crt;
var A: array[1..10] of integer;
Amax,Amin,i,mini,maxi: integer;
begin
clrscr;
Amin:=1;
Amax:=1;
for i:=1 to 10  do
begin
  readln(A[i]);
  If i=1 then
  begin
  Amin:=A[i];
  Amax:=A[i];
  end;
  if A[i]<Amin then
    mini:=i;
  if A[i]>Amax then
    maxi:=i;
end;
if mini>maxi then
for i:=maxi to mini do
  A[i]:=0;
if mini<maxi then
for i:=mini to maxi do
  A[i]:=0;
writeln('result');
for i:=1 to 10 do
 write(A[i],' ');
readln;
end.

вот...он как то неправильно считает...буду оч признателен если кто нибудь подскажет)

Теги не забываем...

Сообщение отредактировано: volvo - 24.01.2007 18:58

[nutty]

да я так тоже пробывал,но многого это не изменило,а преподавателю почему та не понравилось...
а 10 чтобы быстрее проверять было :-[
там просто нужно самому вводить,а каждый раз 40 чисел лень))