Даночисло k (0 < k < 11) и матрица размера…

varj,i,k,sum,proizv: integer; A: array [1… 4,1… 10] of integer; beginproizv: =1; randomize; writeln ('Матрица: '); for i: =1 to 4 do for j: =1 to 10 do A[i,j]: =random (21) -10; for i: =1 to 4 do begin for j: =1 to 10 do write (A[i,j]: 5); writeln; writeln; end; writeln ('Введите К: '); read (k); for i: =1 to 4 do begin sum: =sum+A[i,k]; proizv: =proizv*A[i,k]; end; writeln ('Cумма чисел ',k,'-ого столбца: ',sum); writeln ('Произведение чисел ',k,'-ого столбца: ',proizv); end.