определить столбец с наименьшим количеством нечетных элементов;

[ALINA787]

определить столбец с наименьшим количеством нечетных элементов;
И желательно было бы закрасить этот столбец а не выводить его номер

[Serge_Bliznykov]

как посчитать нечётные элементы в столбце, надеюсь, проблем нет?

матрицу лучше всего выводить в StringGrid

а вот так его можно расскрасить:

https://www.programmersforum.ru/show...6&postcount=10

https://www.programmersforum.ru/showthread.php?t=272172

https://www.programmersforum.ru/show....php?p=1639129

[ALINA787]

есть проблема сравнения с другими столбцами значения

[ALINA787]

procedure TForm1.BitBtn2Click(Sender: TObject);
var sum,s,tru:integer;
 b:array of array of integer;
begin
 for i:=1 to m do
    begin
      sum:=0;k:=0;
      for j:=1 to n do
        begin
          s:=mas[j,i] mod 2;
          if s<>0 then
              begin

                inc (k);
              end;
        end;
    b[i]:=k;
    end;
    tru:=0;
for i:=1 to m do
begin
  if b[i]<=b[i-1] then
   Memo1.Lines.Add('столбец с наименьшим количеством нечетных элементов'+inttostr(b[i]));
end;
end;

но не запускается выскакивает ошибка возле b[i]:=k;

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Serge_Bliznykov]

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

о не запускается выскакивает ошибка возле b[i]:=k;

ещё бы!

для начала - формальности.
массив B

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

b:array of array of integer;

описан у Вас как ДВУХМЕРНЫЙ, поэтому компилятор не пропускает 1 индекс (должно быть обращение B[1,2])
это раз.
второе, динамический массив, перед тем, как использовать, нужно иницилизировать - выделить ему память через SetLength()

но это всё детали.
главное, для чего Вам вообще нужен этот массив B ?

чтобы найти столбец с наименьшим количеством нечетных дополнительный массив ВООБЩЕ не нужен:

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j, 
   count_odd, min_count, column_with_min:integer;
begin
 min_count := MaxInt;
 column_with_min := 0;
 for j:=1 to m do
    begin
      count_odd := 0;   
      for i:=1 to n do
        begin
          {если нечётное, то } 
          if odd(mas[i,j]) then 
                 {вместо Odd() можно и по старинке if mas[i,j] mod 2<>0 then }  
                Inc(count_odd);
        end;
      if count_odd<min_count then begin 
          {нашли новый столбец с меньшим, чем было, количеством нечётных, запомним его}
          min_count := count_odd;
          column_with_min := j;
      end;
    end; {<-- конец поиска столбца с минимальным количеством}

   Memo1.Lines.Add('столбец с наименьшим количеством нечетных элементов № '+IntToStr(column_with_min)+
                    ' содержит '+IntToStr(min_count)+' нечётных элементов.');
end;

впрочем, массив может потребоваться, если таких столбцов несколько и нужно их все найти.
тогда можно так:

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j, 
   min_count : integer;
   b : array of integer;
begin
 SetLength(b, m); 
 min_count := MaxInt;
 for j:=1 to m do
    begin
      B[j-1] := 0;   {нумерация в динамических массивах от нуля}
      for i:=1 to n do
          if odd(mas[i,j]) then {если нечётное, то } 
                 Inc(B[j-1]);
      if B[j-1]<min_count then min_count:=B[j-1];
    end; {<-- конец подсчёта количества нечётных в каждом столбце}


  {вывод}
  for j:=1 to m do
    if B[j-1] = min_count then
       Memo1.Lines.Add('столбец с наименьшим количеством нечетных элементов № '+IntToStr(j)+
                      ' содержит '+IntToStr(min_count)+' нечётных элементов.');
end;

p.s. код набросал примерный, не проверял. могут быть опечатки и мелкие ошибки.

[ALINA787]

Я тогда не понимаю как без доп массива определить сьольец

[Serge_Bliznykov]

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

Я тогда не понимаю как без доп массива определить сьольец

что определить, простите?
"Столбец" ?

я выше написал два примера кода. Попробуйте в них разобраться.