blob: ebacc2b3bd2c45c88af0aac3a4f79bd7794c04d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
unit output;
interface
procedure MaxArray(var X: array of Double; const Y: array of Double);
implementation
procedure MaxArray(var X: array of Double; const Y: array of Double);
var
I: Integer;
begin
for I := 0 to 32767 do
begin
if (Y[I] > X[I]) then
X[I] := Y[I];
end;
end;
end.
|
