blob: 5f85365e5439b0b70af6d964b8b7ef97f9793de6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
type
TBoolArray = array [0..1048576] of Boolean;
procedure OrBoolProc(var Vector1; const Vector2; Count: Integer);
var
I: Integer;
begin
for I:=0 to Count - 1 do
TBoolArray(Vector1)[I]:=TBoolArray(Vector1)[I] or TBoolArray(Vector2)[I];
end;
var
A, B: array [0..10] of Boolean;
I: Integer;
const
error : boolean = false;
begin
for I:=0 to High(A) do A[I]:=False;
for I:=0 to High(B) do B[I]:=True;
OrBoolProc(A, B, SizeOf(A));
for I:=0 to High(A) do
begin
write(A[I], ' ');
if not A[i] then
error:=true;
end;
writeln;
if error then
Halt(1);
end.
|
