Найти номер последнего отрицательного элемента массива.

Пишу на qbasic нам уже дан заполненный массив for i = (кол-во элементов массива) to 1 step -1 if a(i)< 0 then print i end end if

1)program gt; var a: array[1..100,1..100]of integer; b: array[1..100]of integer; n,m,s,i,j: integer; begin readln(n,m); for i: =1 to n do for j: =1 to m do read(a[i,j]); for j: =1 to m do begin s: =0; for i: =1 to n do s: =s+a[i,j]; b[j]: =s; end; for i: =1 to m do write(b[i],' '); end. 2) program gt; var a: array[1..100,1..100]of integer; n,m,s,i,j: integer; begin readln(n,m); randomize; for i: =1 to n do begin for j: =1 to m do begin if(i mod 2=0)then a[i,j]: =0 else a[i,j]: =random(100); write(a[i,j],' '); writeln; end; end.

#include < iostream> int main(){     unsigned int m = 0;     std: : cin > > m;       int * c = new int[m];     int * t = new int[m];     for (unsigned int i = 0,n = 0; i < m; ++i)  {       std: : cin > > c[i];       (c[i] > 0) ? t[n++] = c[i]: t[m-(i-n)-1] = c[i];     }       for (unsigned int i = 0; i < m; ++i)     std: : cout < < c[i] < < ',';       std: : cout < < std: : endl;         for (unsigned int i = 0; i < m; ++i)   std: : cout < < t[i] < < ',';       delete c;     delete t;     return 0; }