blob: f6d0af1e79bb3ff4b7e46b2b7adbafa29790adbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
var a,b: array[0..99] of byte;
i: integer;
c: byte;
begin
for i:=0 to 99 do a[i]:=i;
b:=a;
writeln('The same:',comparedword(a[0],b[0],25));
writeln('All other results should be negative.');
for i:=0 to 99 do
begin
c:=b[i];
b[i]:=200;
writeln(i:3,' ',comparedword(a[0],b[0],25));
b[i]:=c;
end;
end.
|
