vettori e matrici

esci algebraturbo.htm

PROGRAM matri12;
(* caricamento e ordinamento valori interi in vettore *)
uses crt;
var h,k,d,n:integer;
v:array[1..50] of integer;

begin
clrscr;
write('scrivi numero elementi < 50 ');readln(n);
writeln('scrivi elementi del vettore da ordinare:interi ');
for h:=1 to n do
begin
write('elemento n.',h,' = ' );readln(v[h]);
end;

writeln('ordina elementi vettore,modo bubble sort');
for h:=2 to n do
for k:=n downto h do
if v[k-1]>=v[k] then
begin
d:=v[k-1];
v[k-1]:=v[k];
v[k]:=d;
end;
writeln('stampa vettore ordinato');
writeln;
for h:=1 to n do
write(v[h]:5);
writeln;
writeln('premiINVIO');
readln;
end.