Дано массивы А1(N1,M1), A2(N2,M2), A3(N3,M3). Сформировать одномерные массивы В1, В2, В3,...

Question

Дано массивы А1(N1,M1), A2(N2,M2), A3(N3,M3). Сформировать одномерные массивы В1,
В2, В3, каждый из которых состоит из 2-ух элементов. В первом из них количество положительных элементов массивов А1,А2,А3 соответственно, во
втором количество отрицательных элементов массивов А1,А2,А3 соответственно. Определение
количества отрицательных и положительных элементов в исходном массиве и
формирование одномерного массива осуществить в подпрограмме.

Comments

язык?

---

Pascal ABC

Answer 1

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

x = длинна массива A1
y = длинна массива A2
z = длинна массива A3


цикл i от 0 до x:
    если i<=0:<br>        B1[0] = B1[0] + 1
    иначе:
        B1[1] = B1[1] + 1

цикл i от 0 до y:
    если i<=0:<br>        B2[0] = B2[0] + 1
    иначе:
        B2[1] = B2[1] + 1

цикл i от 0 до z:
    если i<=0:<br>        B3[0] = B3[0] + 1
    иначе:
        B3[1] = B3[1] + 1


Вот и все.
Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.