/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/ArrayLib.pas
33 строки
668 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
unit ArrayLib; /// Вывод массива procedure WriteArray<T>(a: array of T); begin for var i:=0 to a.Length-1 do write(a[i],' '); writeln; end; procedure WriteArray(a: array of real); begin foreach x: real in a do write(x:0:1,' '); writeln; end; /// Создание массива и заполнение его случайными числами procedure CreateRandom(var a: array of integer; n: integer); begin a := new integer[n]; for var i:=0 to n-1 do a[i] := random(100); end; procedure CreateRandom(var a: array of real; n: integer); begin a := new real[n]; for var i:=0 to n-1 do a[i] := random*10; end; end.