Дан двумерный массив. Определить:
а) Сумму всех элементов третьей строки массива;
б) Сумму всех элементов s-го столбца массива.

const nx=20;var i,j,n,Sk,St,s:integer; D:array[1..nx,1..nx] of integer;beginwrite('Введите размер матрицы n');Readln(n);write('Введите № столбца s');Readln(s);if s > n then s:= n;for i:=1 to n do beginfor j:=1 to n do beginD[i,j]:= random(100)-50;write(D[i,j]:4);if i=3 then Sk:= Sk + D[i,j];if j=s then St:= St + D[i,j];end;writeln;end;writeln;write('Sk=',Sk:5,'   St=',St:5);end.