1.A1*6 и B1-1
2.B1/2
1. 1 и 24
2.168
3.0 и 0
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Твердость , плотность , масса
В случае, если можно совместить два класса вместе (например, на втором уроке провести занятие для 10а и 10б одновременно), то минимально нужны 2 учителя информатики (одновременно проводятся только 2 урока).
Если классы совместить нельзя, то три учителя (смотрим на максимальное количество закрашенных клеток в строках)