Написать программу через repeat. при введении последовательности чисел необходимо посчитать сумму всех введенных отрицательных чисел.

Написал программу на паскале
Обратите внимание, при вводе code цикл завершается.
По умолчанию code = 999;

C++:

#include <iostream>

using namespace std;

int main() {

long long a, b, m, s = 0; // инициализация чисел

cin >> a >> b >> m; // ввод чисел

for(int i=a; i<=b; i+=m) { // проход циклом for от a до b с шагом m

 s += i; // осуществление суммы

}

cout << s << endl; // вывод суммы

return 0;

}

Python 3:

s = 0

a, b, m = map(int,input().split()) # ввод чисел

for i in range(a, b+1, m):  

   s += i # сложение

print(s) # вывод

Pascal:

var

a, b, m, s :integer;

begin

read(a, b, m); // ввод чисел

s := 0;

while a <= b do begin

     s := s + a; // сумма

     a := a + m; // увеличиваем a

end;

write(s); // выводим сумму

end.

static void Main(string[] args)

       {

           int N = 0;

           Console.Write("Введите размерность массива: ");

           N = Convert.ToInt32(Console.ReadLine());

           double[,] mas = new double[N, N];

           double sum = 0;

           int viborStroki = 0;

           Console.Write("Введите номер строки: ");

           viborStroki = Convert.ToInt32(Console.ReadLine());

           Random rnd = new Random();

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

           {

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

               {

                   mas[i, j] = rnd.Next(0, 10);

               }

           }

           for (int i = viborStroki - 1; i < viborStroki; i++)

           {

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

               {

                   sum += Math.Pow(mas[i, j], 2);

               }

           }

           Console.WriteLine();

           Console.Write("Массив: ");

           Console.WriteLine();

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

           {

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

               {

                   Console.Write(String.Format("{0,3}", mas[i, j]));

               }

               Console.WriteLine();

           }

           Console.Write("Сумма квадратов элементов {0}-й строки = ", viborStroki);

           Console.Write("{0}", sum);

           Console.ReadKey();

       }

Объяснение:

Вводим размерность массива, вводим номер строки, программа считает сумму квадратов элементов введённой строки.