В двумерном пространстве заданы два вектора. Вычислить векторное произведение…

Программа отдельно вычисляет произведения строк и столбцов заданных ячеек.Program n1; Uses CRT; Const n=10; Var a: array[1… n,1… n] of integer; i,j,x1,x2,y1,y2: integer; p1,p2,p3,p4: longint; beginClrScr; For i: =1 to n dobegin For j: =1 to n do begin a[i,j]: =random (10); a[i,j]: =a[i,j]+1; write (a[i,j]: 3); end; writeln; end; Writeln ('Vvedite pervyu paru koordinat'); Readln (x1,y1); Writeln ('Vvedite vtoruu paru koordinat'); Readln (x2,y2); p1: =1; p2: =1; p3: =1; p4: =1; For i: =1 to n do begin p1: =p1*a[i,y1]; p2: =p2*a[i,y2]; end; For i: =1 to n do begin p3: =p3*a[x1,j]; p4: =p4*a[x2,j]; end; Writeln ('Proizvedenie strok=',p1*p2); Writeln ('Proizvedenie stolbcov=',p3*p4); readlnend.