/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0222.pas
13 строк
203 B
Бондарев Иван
bug fix #366
23 апр 2017, 16:22
23 апр 2017, 16:22
cde035d
Код
Авторство
О чём код?
type pair=record x,y:integer end; begin var n:=10; var a:=new pair[n]; for var i:=1 to n-1 do with a[i] do begin x:=i; y:=10*i end; Writeln(a); Writeln(a.Select(e->e.x+e.y).Sum) end.