Паскаль. написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа - repeat

Program riad;
var
a:array [1..10] of integer;
i,j:byte;
begin
writeln('Vvedite chisla');
for i:=1 to n do
readln(a[i]);
i:=1;
j:=0;
repeat
if a[i]<abs(a[i]) then j:=j+1;
i:=i+1;
until i=10;
writeln('kol-vo otricat = ',j);
readln;
end.

Начальное число — 5

Выполняем команды:

Первая команда — 5 + 1 = 6. Потом у нас идут три двойки. Это значит, что мы три раза подставляем какое-то число b к концу текущего (к концу 6). Т.к. в результате мы видим, что после шести у нас стоит две пятерки, это значит, что к шести доставили две пятерки. Третья команда — 2, но после нее идет единица, что говорит о том, что сначала в конец поставляется число b и потом все число увеличивается на единицу. Смотрим: в конце полученного числа стоит шесть. Если убрать единицу, то будет пять, что говорит о том, что число b равно пяти.

ответ: b = 5

#include <iostream>

#include <vector>

#include <map>

#include <cmath>

#include <queue>

#include <set>

#include <iomanip>

#include <map>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n,m;

   cin >> n >> m;

   int max_val = -1,pointer = -1;

   for(int i = 0; i < n; i++)

   {

       int sum = 0,k;

       for(int j = 0; j < m; j++)

       {

           cin >> k;

           sum += k;

       }

       if(sum > max_val)

       {

           max_val = sum;

           pointer = i;

       }

   }

   cout << max_val << "\n" << pointer;

}