/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/09_Units/UnitStructure/MyUnit.pas
28 строк
831 B
Mikhalkovich Stanislav
Примеры правлю
05 ноя 2025, 12:17
05 ноя 2025, 12:17
444637a
Код
Авторство
О чём код?
/// Модуль упрощенной структуры unit MyUnit; // имя модуля должно совпадать с именем файла const Size = 100; type IntArr = array of integer; var Delimiter: string := ' '; // Документирующие комментарии отображаются при наведении на имя курсора мыши /// Заполняет массив случайными числами function FillArr(n: integer): IntArr; begin Result := new integer[n]; for var i:=0 to Result.Length-1 do Result[i] := Random(100); end; /// Возвращает минимальный элемент в массиве function Min(a: IntArr): integer; begin Result := a[0]; for var i:=1 to a.Length-1 do if Result > a[i] then Result := a[i]; end; end.