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

#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

Var 
mas: array[1..7] of integer;
k, i, MAX:integer;

Begin
for i:=1 to 7 do
  Begin
  writeln('Введите число');
  readln(mas[i]); 
  end;

MAX:=mas[1];
k:=1;
for i:=2 to 7 do
  Begin
    if mas[i] > MAX   
       then      
          Begin       
               MAX:=mas[i];       
                k:=1;     
          end   
       else        
            if MAX=mas[i]          
                 then k:=k+1;
  end;

writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);

readln();
end.

Одним з перших комп’ютерів, який по праву можна вважати програмованим, був створений німецьким інженером Конрадом Цузе (1910-1995). Ще у школі, він створив машину для розміну грошей. Починаючи з 1934, будучи студентом технічного ВНЗ, він приступив до створення універсальної обчислювальної машини, яка була б програмованою, і могла вирішувати задачі будь-якого рівня складності.Почавши спочатку з десяткової системи, Цузе віддав перевагу все ж таки двійковій системі. І тут він проявив неабиякі здібності. Знаючи про роботи Буля не більше, ніж про машину Беббіджа, він, проте, використовував у задуманому ним комп’ютері принципи булевої алгебри. В кінці 30-х – початку 40-х років ним було побудовано у домашніх умовах декілька рахункових машин і комп’ютерів для здійснення складних інженерних розрахунків (Z1, Z2 – перша буква від прізвища Zuse). У роботі йому допомагали лише кілька друзів, знайомі виділили Цузе невелику суму грошей на його дослідження. Слід зазначити, що тоді як за розробниками американських автоматичних обчислювальних систем стояли цілі університети, Міністерство оборони США і такі могутні компанії, як IBM, Цузе діяв самостійно, на свій страх і ризик.Машина Цузе складалася з кількох блоків: керуючий пристрій, обчислювальний блок на основі електромеханічних реле, пристрій введення-виведення і, нарешті, пам'ять! Останнє варто відзначити особливо: саме Цузе створив перший зразок механічної «оперативної пам'яті» (на основі рухливих металевих стрижнів) і отримав на нього патент в 1936 р. Таким чином, його пристрій був здатний зберігати у своїй пам'яті проміжні результати розрахунків, а значить, і виконувані ним операції могли бути набагато сложніші.Машини Цузе управлялися за до програми на перфорованій стрічці, яка виготовлялась з бракованої кіноплівки (через дефіцит паперу у роки війни). Як основні елементи машин використовувалися електромеханічні реле.