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!!!!!!!!