Модифицированый дополнительный код
+39
-44

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
const
  КолСтрок=3;
  КолСтолбцов=5;
begin
  var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer;
  var СуммыПоСтрокам: array[1..КолСтолбцов] of integer;
  Writeln('Введите элементы массива (',КолСтрок,',',
    КолСтолбцов,') построчно:');
  for var строка:=1 to КолСтрок do
    for var столбец:=1 to КолСтолбцов do begin
      Read(Массив[строка,столбец]);
      СуммыПоСтрокам[строка]+=Массив[строка,столбец]
      end;
  Writeln('Суммы построчно:');
  for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка])
end.

Тестовое решение
Введите элементы массива (3,5) построчно:
7 -5 13 19 -11
8 23 -15 -6 0
12 -6 -9 0 12
Суммы построчно:
23 10 9

Написано на с++

//WlAY...

#include <iostream>

using namespace std;

int main()

{

   int N;

   cout << "Введите число учеников ->";

   cin >> N;

   if (N < 1)

   {

       cout << "ОШИБКА(учеников меньше 1)" << endl;

   }

   if (N > 30)

   {

       cout << "ОШИБКА(учеников  больше 30)" << endl;

   }

   else

   {

       int b[N];

       int i;

       int n1 = 0, n2 = 0, n3 = 0;

       for (i = 0; i <= N - 1; i++)

       {

           cout << "Введите кол-во правильно решённых примеров ученика номер" << i + 1 << "->";

           cin >> b[i];

           if (b[i] == 10)

               cout << "ОШИБКА(заданий всего 10)";

           if (b[i] == 10)

               n1 += 1;

           if (b[i] < 10 && b[i] >= 5)

               n2 += 1;

           if (b[i] < 5)

               n3 += 1;

       }

       cout << "---------------------ИТОГ-------------------------" << endl;

       cout << n1 << " ученик(а, ов) решил(и) все задания правильно (YES)" << endl;

       cout << n2 << " ученик(а, ов) получил(и) удовлетворительную оценку (NO)" << endl;

       cout << n3 << " ученик(а, ов) получил(и) неудовлетворительную оценку (NO)" << endl;

   }

}