Язык не указан, поэтому запишу на универсальном языке. Потом просто подставите в свой язык.x = длинна массива A1y = длинна массива A2z = длинна массива A3цикл i от 0 до x: если i<=0: B1[0] = B1[0] + 1 иначе: B1[1] = B1[1] + 1цикл i от 0 до y: если i<=0: B2[0] = B2[0] + 1 иначе: B2[1] = B2[1] + 1цикл i от 0 до z: если i<=0: B3[0] = B3[0] + 1 иначе: B3[1] = B3[1] + 1Вот и все.Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.