n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/MyUnit.pas

14 строк377 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

/// ������ ���������� ���������
unit MyUnit; // ��� ������ ������ ��������� � ������ �����

// ��������������� ����������� ������������ ��� ��������� �� ��� ������� ����
/// ���������� ������������ ������� � �������
function Max(a: array of integer): integer;
begin
  Result := integer.MinValue;
  foreach x: integer in a do
    if x>Result then 
      Result := x;
end;

end.