’WPCĻ
ū’ 2 B V K ” Z ' CG Times ’’ 8 w C ; , Ź`Xw Ļ¾¦ Pģ E37ūXPžžžžžžž’ž’’’ž’’ž’’’’’’’’’’’’’’’’’’’’" ā øā4|JŲ~ ’’’’ ’’’’’’^ ; C ] d d ² C C C d ² C C C C d d d d d d d d d d C C Č ² Č Y ² ~ ~ v C N ~ µ s
k ~ ½ C C C d d C Y d Y d Y C d d 8 8 d 8 d d d d J N 8 d d d d Y Y d Y Č é d 4 d d d d d C d d d d d d d d d 8 Y Y Y Y Y ²
Y ~ Y ~ Y ~ Y ~ Y C 8 C 8 C 8 C 8 d d d d d d d d d d Y d d d d d s d X Y X X X Y Y x | X ~ Y ~ Y | X d d d d d d d d C 8 C 8 C 8 C 8 o N d | 8 | H ~ 8 | 8 | 8 d t d d d d ² H H
J l L l L l L k N | H | 8 ~ 8 d d d d d d ½ d X X X d ~ 8 d
J k N ~ 8 d d x d d C d d C C C W Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x N d d d C Y Q Q d d ° d d d ² ² d F d d d d ² F C C h h d ² 4 4 Č Č d d x x Č d Č d d v ¤ ¤ o o ² C h d ½ ń F " Č Č Č Č Č Č Č d Č Č h ² ² Č Č Č d å ² ² Č Č Č 9 ² d C C Č Č Č Č Č x Č ² C Č d d o d ² Č Č
d C d Y d s Č Č Č Č Č Č Č ] Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č Č ¤
x Č Č Č Č U v Č Č Č Č Č Č Å d Č Č Č Č Y Y C C C C Ń x ~ o x o
Y ~ N Y d Y C 8 Y
o µ o Y
d Y x s d x d d ~ Y Y
x o x x x x N d 8 8 Y Y Y x Y x x x x C C d d d d d d d x x x x x x x x x x x x x x x x x x x N N N N N N N d d d d d d d d d d d d d d d d d d d d 8 8 8 8 8 8 8 8 8 8 8 8 Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y x x x x x x x x x x x x x x x x x x x x C s ~ C x C d d Y C ž Č Č Š ä “ ō \ Ų “ ä ä ģ ģ Ü “ p x Ų ¼ Ų ¼ “ “ “ “ “ “ t ¼ ¼ l l “ Ø Ø Ø ą Ø Ų ° ° ¤ ° “ “ “ č Ō Ą Ü ¼ ¼ ¼ Ģ ø Ü Ō Š Ą “ “ “ “ \ Ä “ t Ō Ō “ “ “ l l “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ Č Č Č Č Č Č Č Č @ \ @ “ “ “ “ “ Ą \ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ Š Š Š Š Č Č Č Č Č Č Č Č Č Č ü ü “ “ “ “ “ “ Ä Ä “ “ Ō Ō “ “ ° ° ° ° “ “ ¤ ¤ Ō ¤ ` L “ “ HP LaserJet 4Si (PCL) CL) HP4SI.PRS Xw Ļ¾¦ Pģ E37ūš \šö ØXPū’ 2
³ ½ Ķ Š Š 3| w
Unit5.5pas
program u55;
var A:array[1..10] of integer;
count,i,j,swap,number,minpos,min:integer;
u55in:text;
begin
assign(u55in,'u55.txt');
reset(u55in);
{read in array}
i:=1;
count:=0;
read(u55in,number);
while(i<=10) and (number<>-1) do begin
A[i]:=number;
i:=i+1;
count:=count+1;
read(u55in,number);
end;
{do the actual sort}
for i:=1 to count-1 do begin
min:=A[i];
minpos:=i;
for j:=i to count do begin {NOTE! j starts at the variable I,
NOT the number one!!!}
if A[j]<min then begin
min:=A[j];
minpos:=j;
end;
end;
swap:=A[i];
A[i]:=A[minpos];
A[minpos]:=swap;
end;
Ō õ( 0*0*0*°° Ō{dump the sorted array}
for i:=1 to count do begin
write(A[i]);
writeln;
end;
end.