Int num;
for(int i = 0; i < k; i++) if(arr[i] == int(arr[i]) num++;
num - количество целых чисел
k - количество интераций
Смотрите документ, там текст программы. Картинки -- демонстрация работы.
Program ttt;
var i:integer;
begin
for i:=0 to 17 do
writeln(i);
end.
Для кодирования одного из 16 предметов требуется log(2)16 = 4 бита.
Например, 0000 - математика, 0001 - русский язык и т.д.
Для кодирования всего расписания - 7*6*4 = 168 бит.