vettori e matrici

esci algebraturbo.htm

PROGRAM matri11;
(* 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 sostituzione');
for h:=1 to n-1 do
for k:=h+1 to n do
if v[k]<=v[h] then
begin
d:=v[k];
v[k]:=v[h];
v[h]:=d;
end;
writeln('stampa vettore ordinato');
writeln;
for h:=1 to n do
write(v[h]:5);
writeln;
writeln('premiINVIO');
readln;
end.