сделать это в пеенте и скинуть файл информатика

Язык не указан, поэтому запишу на универсальном языке. Потом просто подставите в свой язык.

x = длинна массива A1
y = длинна массива A2
z = длинна массива 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 цикла в один двойной цикл, однако это работает не во всех языках.