Сделать базу данных и выполнить задания к ней..
.. ​

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

for i:=1 to n do

begin

 readln(a);

 if a<5

   then x:= x+1;

end;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

while i<>n do

begin

 i:= i+1;

 readln(a);

 if a<5

   then x:= x+1;

end;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

repeat

 i:= i+1;

 readln(a);

 if a<5

   then x:= x+1;

until i=n;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

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

//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;

   }

}