Написать программу нахождения суммы всех чисел> заданного к при вводе до первого отрицательного.

//Pascal ABC.NET v3.0 сборка 1111

var
 a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
 while a>=0 do //пока а >=0
  begin;
   if a>k then s:=s+a; //если a>k, тогда добавляем к s
   readln(a); //каждый раз вводим в a
  end;
writeln(s); //выводим s
end.

Пример ввода:
45
34
56
67
-2
Пример вывода:
123

#include <iostream>

#include <cstdlib> // обьявление rand()

#include <ctime> // обьявление srand()

#define SIZE 5 // размер массива

int main()

{

using namespace std;

setlocale(LC_ALL, "ru");

srand(time(NULL));

int arr[SIZE][SIZE];

cout << "Начальный массив: \n";

for (unsigned i = 0u; i < SIZE; i++)

{

 int positive = 0;

 for (unsigned j = 0u; j < SIZE; j++)

 {

  arr[i][j] = rand() % 20 - 10;

  cout << arr[i][j] << '\t';

  if (arr[i][j] > 0)

   positive++;

 }

 arr[i][0] = positive;

 cout<<'\n';

}

cout << "\nМассив-результат: \n";

for (unsigned i = 0u; i < SIZE; i++)

{

 for (unsigned j = 0u; j < SIZE; j++)

  cout << arr[i][j] << '\t';

 cout<<'\n';

}

return 0;

}

ответ: что не ясно - спрашивай.

#include <iostream>

#include <cstdlib> // обьявление rand()

#include <ctime> // обьявление srand()

#define SIZE 5 // размер массива

int main()

{

using namespace std;

setlocale(LC_ALL, "ru");

srand(time(NULL));

int arr[SIZE][SIZE];

for (unsigned i = 0u; i < SIZE; i++)

{

 for (unsigned j = 0u; j < SIZE; j++)

 {

  arr[i][j] = rand() % 20 - 10; // от -10 до 10

  cout << arr[i][j] << '\t';

 }

 cout<<'\n';

}

for (unsigned i = 0u; i < SIZE; i++)

{

 for (unsigned j = 0u; j < SIZE; j++)

 {

  if (arr[i][j] == 1)

  {

   int max = arr[i][0];

   for (unsigned k = i; k <= i; k++)

   {

    for (unsigned l = 0u; l < SIZE; l++)

    {

     if (arr[k][l] > max)

     {

      max = arr[k][l];

     }

    }

   }

   cout << "\nРядок # " << i << " | максимальный элемент: " << max;

   break;

  }

 }

}

return 0;

}