Целочисленная матрица

[StudentMarat]

Помогите дорешать задачу. А её практически сделал.

Дана целочисленная матрица {Aij}i=1...n, j=1...m (n,mє[6..9]). Конкретный размер задается списками ListBox (отдельно столбцы и строки). Если в матрице есть два столбца c нулевыми элементами, то найти наибольший элемент матрицы, в противном найти наименьший эле-мент. Пароль: на экран выводятся случайно три латинских буквы, в ответ надо ввести сумму номеров первой и третьей букв.

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 application.Terminate;
end;
 
procedure TForm2.ListBox1Click(Sender: TObject);
begin
 StringGrid1.ColCount:=strtoint(listbox1.Items[listbox1.itemindex]);
end;
 
procedure TForm2.ListBox2Click(Sender: TObject);
begin
 StringGrid1.RowCount:=strtoint(listbox2.Items[listbox2.itemindex]);
end;
 
procedure TForm2.StringGrid1DblClick(Sender: TObject);
var
    i,j,t:integer;
begin
randomize;
for i:=0 to StringGrid1.ColCount-1 do
  begin
    for j:=0 to stringgrid1.RowCount-1 do
    begin
      t:=round(random*200-100);
      StringGrid1.Cells[i,j]:=inttostr(t);
    end;
  end;
end;
 
procedure TForm2.FormDblClick(Sender: TObject);
var
    i,j,t:integer;
begin
randomize;
for i:=0 to StringGrid1.ColCount-1 do
  begin
    for j:=0 to stringgrid1.RowCount-1 do
    begin
      t:=round(random*200-100);
      StringGrid1.Cells[i,j]:=inttostr(t);
    end;
  end;
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 
end;

Вот это я не могу сделать. Если в матрице есть два столбца c нулевыми элементами, то найти наибольший элемент матрицы, в противном найти наименьший эле-мент.

Интерфейс ниже

[ByAlex]

Сообщение от StudentMarat

Помогите дорешать задачу. А её практически сделал.

Вот это я не могу сделать. Если в матрице есть два столбца c нулевыми элементами, то найти наибольший элемент матрицы, в противном найти наименьший эле-мент.

Привет! Думаю вот так

Kol:=0;
Check:=0;
for i:=1 to RazMas do
begin
   for j:=1 to RazMas do
   begin
      if arr[j,i]=0 then
         inc(Check);
      if j=RazMas then
      begin
         if Check=RazMas then
            inc(Kol);
         Check:=0;
      end;
   end;
end;
max:=arr[i,j];
min:=arr[i,j];
if Kol=2 then
begin
   for i:=1 to RazMas do
      for i:=1 to RazMas do
      begin
         if arr[i,j]>max then
            max:=arr[i,j];
      end; 
end
else
begin
   for i:=1 to RazMas do
      for i:=1 to RazMas do
      begin
         if arr[i,j]<min then
            min:=arr[i,j];
      end; 
end;
И выводишь max и min.