ВАС ОЧЕНЬ НАДО Информатика 10 класс.Разработанная нами экспертная система в качестве вершин ответов не всегда указывает на семейство,а завершает свою работу указанием,например,класса растения.Это сделано лишь потому,что система носит чисто иллюстративный характер.Разработайте более полный вариант базы знаний данной экспертной системы.

//Pascal ABC.NET 3.1 сборка 1219

//1
Const
 n=10;

Var
 ar:array[1..n] of integer;
 i,c:integer;
begin
 randomize;
 readln(c);
  writeln('Array:');
  for i:=1 to n do
   begin
    ar[i]:=random(-10,10);
    write(ar[i]:4);
   end;
 for i:=1 to n do
  if (ar[i]>0) and (ar[i]>c) then
   begin
    ar[i]:=-ar[i];
    swap(ar[i],ar[2]);
    break;
   end;
 writeln;
 writeln('Final array:');
 for i:=1 to n do
 write(ar[i]:4);
end.

//2
Var
 se:set of char;
 s:string;
 i,j,k:integer;
begin
se:=['0','1','2','3','4','5','6','7','8','9'];
readln(s);
var ars:=s.Split;
for i:=0 to ars.Length-1 do
begin
 for j:=1 to length(ars[i]) do
  if ars[i][j] in se then inc(k);
writeln(ars[i],':',k);
k:=0;
end;
end.

У вас уже есть таблица с данными можно создать 2 запроса с справочником где будет взаимодействие с вашей таблицей и не будет такого что в 13:00 преподователь ведет пары в разных классах делаете сперва 1 запрос на лекции где он делит их согласно вашим предпочтениям далее второй запрос практика где так же указываете данные из таблиц и запросов потом немножко корректируете все проверяете и сохраняете запрос и жмете выполнить должно получится что он поделит их согласно установленного расписания вами в определенные дни указанные вами