Дан двумерный массив 7х5. найти сумму отрицательных элементов в каждом столбце. определить минимальный элмент в 1-й строке( значение и координаты)

Var     i,j,s,min,im: integer;     a: array[1..7,1..5]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 5 do     begin     a[i,j]: =random(-9,9);     write(a[i,j]: 4);     end;   writeln;   end; writeln('сумма отрицательных по столбцам: '); for j: =1 to 5 do   begin   for i: =1 to 7 do     if a[i,j]< 0 then s: =s+a[i,j];   write(s: 4);   s: =0;   end; min: =a[1,1]; for j: =1 to 5 do     begin     if (a[1,j]< min) then       begin       min: =a[1,j];       im: =j;       end;     end; writeln; writeln('min=',min,'; (1,',im,')'); end.

Эта на нахождение суммы отриц. элементов const n=7; к=5; var a: array [1..n, 1..к] of integer;         i, j, y : integer; begin for i: =1 to n do for j: =1 to k do readln(a[i,j]); у: =0; for i: =1 to n do for j: =1 to k do if (a[i,j]< 0) then y: =y+ a[i,j]; writeln (y); end.

#include <iostream>

using namespace std;

int main()

{

   int N; cin >> N;

   int list[N];

   int a = 0;

   while (a < N)

   {

       int n; cin >> n;

       list[a] = n;

       a ++;

   }

   int flag_2 = 0;

   a = 0;

   while (a < N)

   {

       int b = 0;

       int flag = 0;

       while (b < N)

       {

           if (list[a] == list[b])

           {

               flag ++;

               flag_2 ++;

           }

           b ++;

       }

       if (flag > 1) cout << list[a] << " ";

       a ++;

   }

   if (flag_2 <= N) cout << 0;

}

1) ответ выводится не списком, а просто отдельными числами через пробел

2) каждое повторяющееся число выводится несколько раз(столько, сколько встречается)

3) в конце вывода лишний пробел

Могу решить на пайтоне, если важно просто закрыть задачу. А так, судя по всему, решение только массивами требует более глубоких знаний(динамические массивы и векторы), чем есть у меня в с++. Возможно, сможете улучшить мое решение

(кинул бы в комментарии, но там ограничение на кол-во символов)