’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
Unit6.5pas
program u65;
const VSize=3;
type vector=array[1..VSize] of integer;
var X,Y:vector;
procedure ZeroVector(var V:vector);
var i:integer;
begin
for i:=1 to VSize do begin
V[i]:=0;
end;
end;
procedure InitVector(var V:vector);
var i:integer;
begin
for i:=1 to VSize do begin
V[i]:=i;
end;
end;
function SumVector(V:vector):integer;
var Sum,i:integer;
begin
Sum:=0;
for i:=1 to VSize do begin
Sum:=Sum+V[i];
end;
SumVector:=Sum;
end;
begin
ZeroVector(X);
write('Sum of the Zero Vector is ', SumVector(X));
writeln;
Ō õ( 0*0*0*°° ŌInitVector(Y);
write('Sum of the inittedVector is ', SumVector(Y));
writeln;
end.