Задача с одномерным массивом Опции

[Zharatustra]

Суть задачи состоит в том что надо найти минимальное и максимальное значение элементоа в массиве и поменять их местами. С первой половиной задачи я справился, а вот со второй вышла заминка. Подскажите, пожалуйста кто-н.

program n1;                                                                   
 uses crt;                                                                    
 var d: array[1..15] of integer;                                  
 max,min,n,i: integer;                                            
begin                                                                         
 clrscr;                                                                                                                                  
 write ('N=');                                                                
 readln (n);                                                                  
 for i:=1 to n do                                                             
  begin                                                                       
   writeln ('D[',i,']=');                                                     
   readln (d[i])                                                             
  end;                                                                        
  max:=d[1];                                                                  
   for i:=2 to n do                                                           
    if d[i]>max then                                                          
     max:=d[i];                                                               
  min:=d[1];                                                                  
   for i:=2 to n do                                                           
  if d[i]<min then                                                          
     min:=d[i];                                                                                                                                
     writeln ('max=',max,' min=',min);                                                                                            
 readln;                                                                      
end.                                                                          

Сообщение отредактировано: Zharatustra - 7.10.2007 15:45

[Tan]

добавь переменную например maxnomer, и храни там номер максимального элемента, так же с минимальным. Ка поменять сам уж разберёшься.

max:=d[1];           
maxnomer := 1;                                                       
   for i:=2 to n do                                                           
    if d[i]>max then              
     begin                                            
        max:=d[i]; 
      maxnomer := i;
     end;

Сообщение отредактировано: Tan - 7.10.2007 15:56