Задание C#: В массиве размером n×n, элементы которого являются целыми числами, произвести следующие действия: удалить строку и столбец, на пересечении которых стоит минимальный элемент (минимальный элемент встречается в массиве только одни раз)

Begin
var a: array [,] of integer := (
(1, 10, 100),
(1, 10, 200),
(1, 9, 100),
(1, 9, 100));

var max := integer.MinValue;
var countmax := 0;
var min := integer.MaxValue;
var countmin := 0;
var counter := 0;
for var j := 0 to a.GetLength(1) - 1 do
begin
counter += 1;
var c := 0;
for var i := 0 to a.GetLength(0) - 1 do
begin
c += a[i, j]
end;
if max < c then
begin
max := c;
countmax := counter;
end;
if min > c then
begin
min := c;
countmin := counter;
end;
end;
writeln('Столбик с наибольшей суммой - ', countmax);
writeln('Столбик с наименьшей суммой - ', countmin);
end.

Program z14;  Var q, z:integer; sr, sg, x, y: real;Begin  write('Введите число Q = '); readln(q);  write('Введите число Z = '); readln(z);    writeln('Задание 2:');  if (q = z) then             begin              sr:= (q + z) / 2;              writeln('Среднее арифметическое = ', sr);             end             else              begin              sg:= sqrt(q * z);              writeln('Среднее геометрическое = ', sg);             end;               writeln('Задание 3:');  x:= -3;  while (x <= 3) do  begin    y:= 5*x*x - x + 2;    writeln('X = ', x, '  Y = ',y);    x:= x + 0.5;  end;End.