Ciao a tutti,
Ho un problema la mia prof di informatica mi da il seguente problema:

Dato un vettore di n componenti dire se gode della seguente proprietà:
1a componente maggiore di quelle successive
2a minore delle successive
3a maggiore delle successive
4a minore delle succesive
ecc

non so come devo fare vi posto il codice che sono riuscito a fare :


codice:
program vent; 
uses wincrt; 
const n=6; 
type vettore=array[1..n]of integer;
 var v:vettore;     
co:vettore;    
 i,j,aiuto:integer;
begin
   for i:=1 to n do    
     begin      
         writeln('inserisci la ',i,'ª componente');
         readln(v[i]);     
    end;      
for i:=1 to n do       
for j:=2 to n do       
begin        
if v[i]<v[j] then                       
  begin                  
            aiuto:=v[i];     
            v[i]:=v[j]; 
             v[j]:=aiuto;
  end;        
 if v[i+1]>v[j] then 
                          begin       
                         aiuto:=v[j]; 
                         v[j]:=v[i+1]; 
                         v[i+1]:=aiuto;
                         end;
end; 
writeln;     
for i:=1 to n do writeln(v[i]);  
end.
vi prego aiutatemi mi boccia se non glielo porto domani!!!!!!!!