Дан массив в котором есть положительные и отрицательные числа. найти отдельно сумму положительных чисел и сумму отрицательных чисел.

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

 

end.

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

Математические вычисления

О математических функциях

Математические функции используют при выполнении арифметических и тригонометрических вычислений, округлении чисел и в некоторых других случаях.

Суммирование

Простая сумма

Для простейшего суммирования используют функцию СУММ.

Синтаксис функции

СУММ(А),

где A – список от 1 до 30 элементов, которые требуется суммировать. Элемент может быть ячейкой, диапазоном ячеек, числом или формулой. Ссылки на пустые ячейки, текстовые или логические значения игнорируются.

Фактически данная функция заменяет непосредственное суммирование с использованием оператора сложения (+). Формула =СУММ(В2:В7), указанная в ячейке В8 (рис. 7.1), тождественна формуле =В2+В3+В4+В5+В6+В7. Однако есть и некоторые отличия. При использовании функции СУММ добавление ячеек в диапазон суммирования автоматически изменяет запись диапазона в формуле. Например, если в таблицу вставить строку, то в формуле будет указан новый диапазон суммирования. Аналогично формула будет изменяться и при уменьшении диапазона суммирования

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

program String9;

var

 N,i:integer;

 C1,C2:char;

 S:string;

 

begin

Write('N:');

Readln (N);

Write('C1:');

Readln (C1);

Write('C2:');

Readln (C2);

S:='';

for i:=1 to (N div 2) do S:=S+C1+C2;

 

Writeln(S);

end.

Решение Pascal C++

C++

# include <iostream>

# include <windows.h>

# include <cmath>

# include <iomanip>

using namespace std;

const int MAXSIZE = 100;

int main()

{

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

 

int N;  

char C1, C2;

char str[MAXSIZE] = "";

 

cout << "Введите символ C1 ";

cin >> C1;

cout << "Введите символ C2 ";

cin >> C2;

cout << "Введите число N ";

cin >> N;

 

for (int i=0; i<N; ++i){

       if (i%2==0) str[i] = C1 ;

       else str[i] = C2;

}

str[N]='\0';

 

cout << str << endl;

   system ("pause");

return 0;

}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

# include <iostream>

# include <windows.h>

# include <cmath>

# include <iomanip>

 

 

using namespace std;

 

const int MAXSIZE = 100;

 

int main()

{

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

 

int N;  

char C1, C2;

char str[MAXSIZE] = "";

 

cout << "Введите символ C1 ";

cin >> C1;

cout << "Введите символ C2 ";

cin >> C2;

cout << "Введите число N ";

cin >> N;

 

for (int i=0; i<N; ++i){

       if (i%2==0) str[i] = C1 ;

       else str[i] = C2;

}

str[N]='\0';

 

cout << str << endl;

   system ("pause");

return 0;

}

Объяснение:

Все там правильно написано)