Awkwardsaw
2010-02-21 19:41:06
function AMax(Data: TIntegerarray): Integer;
var //here be 330
i : integer;
begin
if length(data) = 0 then
begin
Writeln('cannot define result of AMax, input length = 0');
raiseexception(erCustomError,'AMax input with length of zero');
end;
result := data[0];
for i := high(data) downto 1 do
result := max(result,data[i]);
end; halp :(