Ввести массив а.

если в массиве положительных элементов больше, чем отрицательных, то найти сумму всех элементов массива.

#include <stdio.h>

#include <stdlib.h>

int main()

{

int A[10]={};// Создаем массив состоящий из 10 элементов.

int CountForPlus = 0;// Счетчик для положительных значений.

int CountForMinus = 0;// Счетчик для отрицательных значений.

int Summ = 0;// Переменная в которой будут храниться сумма  элементов массива

printf("Vvedite 10 elementov massiva \n");

for (int i = 0; i < 10; i++)

{

 scanf_s("%d", &A[i]);

 if (A[i] < 0)

 {

  CountForMinus++;// Если, элемент массива будет отрицательным,

      // то счетчик для отрицательных значений будет увеличиваться.

 }

 else

 {

  CountForPlus++;// Иначе, элемент массива будет положительным,

       // то счетчик для положительных значений будет увеличиваться.

 }

 //Summ += Arr[i];

}

if (CountForPlus > CountForMinus) // Сравниваем счетчики, если положительный больше отрицательного то

{          // находим сумму всех элементов массива

 for (int i = 0; i < 10; i++)

 {

  Summ += A[i];

 }

 printf("%d \n", Summ);

}

else

{

 printf("otricatelnih elemntov massiva bolshe chem polochitelnih \n");

}

system("pause");

return 0;

}

Объяснение:

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var (kp, kn) := (0, 0);

 foreach var c in a do

   if c > 0 then Inc(kp)

   else if c < 0 then Inc(kn);

 if kp > kn then a.Sum.Println;

end.

PascalABC.NET