sto facendo i miei primi passi con pascal devo preparare un programma che richieda l'inserimento di 10 numeri diversi all'interno di un vettore di interi e che ne restituisca il vettore ordinato..qualcuno mi da un idea? anche di dove pescarmi un buon manuale invece di rompere in giro. CIAOOO:byebye:
Prova questo. Supponiamo di avere 10 numeri interi che possono anche essere uguali.
Program ordinamento_vettore;
{dichiarazione}
var
vet:array[1..10] of integer;
i,j,c:integer;
{uso c come variabile di scambio}
begin
{immissioni dei nemeri nel vettore utilizzando un ciclo for}
for i:= 1 to 10 do
begin
writeln('inserisci il ',i,'° numero');
readln(vet
);
end;
{caricato il vettore passiamo all'ordinamento}
for j:= 1 to 9 do
for i:= (j+1) to 10 do
if vet[j]>vet then
begin
{scambio valori}
c:=vet[j];
vet[j]:= vet;
vet:=c;
end;
{visualizzazione del vettore ordinato}
for i:= 1 to 10 do
writeln(vet);
readln;
end.