// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin var n:=5; Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var (k,p):=ReadInteger2('Введите через пробел номера двух строк:'); if k.Between(1,n) and p.Between(1,n) then begin a.Row(k-1).Zip(a.Row(p-1),(x,y)->x*y).Println; endend.
Пример*** Исходная матрица *** -45 -38 -15 34 -13 1 -38 39 34 -25 24 -41 -4 -25 -48 5 -19 -43 -15 -31 -21 27 -31 23 -39--------------------Введите через пробел номера двух строк: 2 5-21 -1026 -1209 782 975