/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/AssignTupleLambdas.pas
9 строк
283 B
miks1965
Bug fix #299
02 янв 2017, 12:05
02 янв 2017, 12:05
813e061
Код
Авторство
О чём код?
begin (var l, var m, var n):=(3,5,2); var A:=MatrRandom(l,m,1,50); A.Println(5); Writeln; var B:=MatrRandom(m,n,1,50); B.Println(5); Writeln; var C:=MatrFill(l,n,0); for var i:=0 to l-1 do for var j:=0 to n-1 do C[i,j]:=A.Row(i).Zip(B.Col(j),(x,y)->x*y).Sum; end.