Найти сумму k-той строки и g-того столбца pascal abc​

Объяснение:

const

 x = 10;

var

 a: array[1..x, 1..x] of integer;

 g, k, i, j, sum_g, sum_k: integer;

begin

 writeln('Введите номер строки в диапазоне от 0 до ', x, ': ');

 readln(k);

 writeln('Введите номер стобца в диапазоне от 0 до ', x, ': ');

 readln(g);

 if (k < 1) or (k > x) or (g < 1) or (g > x) then

   writeln('Вы ввели некорректное число!')

 else

 begin

   writeln('Матрица:');

   for i := 1 to x do

   begin

     for j := 1 to x do

     begin

       a[i, j] := random(0, 9);

       if (i = k) then sum_k += a[i, j];

       if (j = g) then sum_g += a[i, j];

       write(a[i, j], ' ');

     end;

     writeln;

   end;

   writeln('Сумма ', k, '-ой строки: ', sum_k);

   writeln('Сумма ', g, '-го стобца: ', sum_g);

 end;

end.