/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/YieldForVar_i_i.pas
15 строк
258 B
miks1965
#343 bug fix
18 фев 2017, 00:19
18 фев 2017, 00:19
58f342f
Код
Авторство
О чём код?
function MatrMainDiag(a: array[,]of integer):sequence of integer; begin for var i:=0 to 10 do yield a[i,i] end; function MatrMainDiag1(a: array[,]of integer):sequence of integer; begin for var i:=0 to 10 do yield min(i,i) end; begin end.