У вас уже есть таблица с данными можно создать 2 запроса с справочником где будет взаимодействие с вашей таблицей и не будет такого что в 13:00 преподователь ведет пары в разных классах делаете сперва 1 запрос на лекции где он делит их согласно вашим предпочтениям далее второй запрос практика где так же указываете данные из таблиц и запросов потом немножко корректируете все проверяете и сохраняете запрос и жмете выполнить должно получится что он поделит их согласно установленного расписания вами в определенные дни указанные вами
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.
//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.