Найти колво единиц в массиве

[igabenu]

Дан двумерный массив. Найти столбец, в котором максимальное колво едениц(1). Как на делфи это решить? Заранее спасибо

[unbanned]

если действия по столбцу, то поменяй циклы местами

for j:=1 to n do begin
k:=0;
for i:=1 to m do
if m[i,j]=1 then k:=k+1;
end;
...
end;

[Hacker19_90]

k:=0;
for j:=1 to n do
for i:=1 to m do 
if m[i,j]=1 then k:=k+1;

хм... Помоему найдёт только кол-во 1. А не номер столбца с максимальным кол-вом единиц!
Нужно как-то так!

num = 0;
count:=0;
count_temp = 0;
for j:=1 to n do
begin
    for i:=1 to m do 
        if m[i,j]=1 then Inc(count_temp);
    if count_temp > count then 
    begin
        count := count_temp;
        num := j;
    end;
end;
Writeln (num);

[igabenu]

Hacker19_90, спс за помощь, но код не рабочий

[Hacker19_90]

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

Hacker19_90, спс за помощь, но код не рабочий

Так прям и выдал - "Я не рабочий";
Может покажите, как вы его дополнили?

[unbanned]

я где то сказал что это решение данной задачи?
я говорил про действия со столбцами)))
а вот решение:

const
  n = 5;
  m = 5;

var
  mk, mj, i, j, k: integer;
  a: array [1..n, 1..m] of integer;

begin
  randomize;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      a[i, j] := -1 + random(5);
      write(a[i, j]:3);
    end;
    writeln;
  end;
  mk := 0;
  mj := 0;
  for j := 1 to m do 
  begin
    k := 0;
    for i := 1 to n do
      if a[i, j] = 1 then k := k + 1;
    if k > mk then
    begin
      mk := k;
      mj := j;
    end;
  end;
  if mk <> 0 then
    writeln('В столбце: ', mj, ' Количество: ', mk)
  else writeln('В матрице нет единиц');
end.

так же и на delphi...

program Project1;

{$APPTYPE CONSOLE}

const
  n = 5;
  m = 5;

var
  mk, mj, i, j, k: integer;
  a: array[1..n, 1..m] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -1 + random(5);
      write(a[i, j]: 3);
    end;
    writeln;
  end;
  mk := 0;
  mj := 0;
  for j := 1 to m do
  begin
    k := 0;
    for i := 1 to n do
      if a[i, j] = 1 then
        k := k + 1;
    if k > mk then
    begin
      mk := k;
      mj := j;
    end;
  end;
  if mk <> 0 then
    writeln('V stolbce: ', mj, ' kolichestvo: ', mk)
  else
    writeln('V matrice net edinic');
  readln;
end.