È dato il seguente programma:
Program E10(Input, Output);
Const
N=10;
Var
v: Array[1..N] Of Integer;
i: Integer;
Procedure p();
Var
i, t, s: Integer;
Begin
Repeat
s:=0;
For i:=2 To N-1 Do
If(v[i-1] > v[i]) Then
Begin
t:=v[i-1];
v[i-1]:=v[i];
v[i]:=t;
s:=1
End
Until(s = 0)
End;
Begin
v[1]:=3; v[2]:=5; v[3]:=2; v[4]:=7; v[5] :=8;
v[6]:=1; v[7]:=4; v[8]:=9; v[9]:=6; v[10]:=0;
p();
For i:=1 To N Do
write(' ', v[i]);
End.
Cosa viene visualizzato a video dall’esecuzione del programma ?