0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 13
1

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

17.05.2011, 21:59. Показов 2633. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
в массиве из 12 челых чисел найти сумму и подсчитать количество положительных и отрицательных элементов массива.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2011, 21:59
Ответы с готовыми решениями:

Подсчитать сумму и количество положительных и отрицательных элементов массива.
ПРивет, помогите пожалуйста с массивами, а то ступор.. 1.дан одномерный массив Xn. Подсчитать...

Подсчитать количество положительных и сумму отрицательных элементов массива
Подсчитать количество положительных и сумму отрицательных элементов массива А, состоящего из 11...

Подсчитать количество отрицательных и сумму положительных элементов массива
В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов.

Подсчитать количество положительных и отрицательных элементов массива; найти максимальный среди нечётных
искал в форумах, но безрезультатно:-| 1)В массиве из n чисел есть положительные и отрицательные...

4
25 / 25 / 32
Регистрация: 19.03.2011
Сообщений: 66
17.05.2011, 22:14 2
найти сумму всех элементов или полож-х и отр-х по отдельности?
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
17.05.2011, 22:16 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

подсчитал сумму всех элементов
Pascal
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
  const
  n=12;
 var
 a:array[1..n]of integer;
 i,s,p,o:integer;
begin
   randomize;
   for i := 1 to n do
   begin
      a[i]:=random(10)-5;
      write(a[i]:4);
   end;
   writeln;
   s:=0;
   o:=0;
   p:=0;
    for I := 1 to n do
      begin
       s:=s+a[i];
       if a[i]<0  then
       o:=o+1
       else p:=p+1;
      end;
    writeln('summa elementov=',s);
     writeln('otricatelnih elementov=',o);
     writeln('pologitelnih elementov=',p);
   readln;
end.
0
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 13
17.05.2011, 22:17  [ТС] 4
найти только сумму)))) и подсчитать кол-во отриц и пол.х
0
25 / 25 / 32
Регистрация: 19.03.2011
Сообщений: 66
17.05.2011, 22:18 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
kp := 0;
ko := 0;
S := 0;
for i := 1 to 12 do
  begin
     if X[i]>0 then kp := kp + 1;
     if X[i]<0 then ko := ko + 1;
     S := S + X[i];
   end;
Writeln('Число пол-х эл-в =',kp);
Writeln('Число отр-х эл-в =',ko);
Writeln('Cумма всех эл-в =',S);
readln;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2011, 22:18
Помогаю со студенческими работами здесь

Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива
Помогите пожалуйста с составлением программы. Условие: Найти сумму положительных (SP) и...

Найти сумму положительных и количество отрицательных элементов массива
В универе дали следующее задание: Дан массив Ai, i=1,2,…,15. Найти сумму положительных...

Найти сумму положительных и количество отрицательных элементов массива
люди помогите пожалуйста написать программу к задаче: Задан массив из N чисел. Найти сумму...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru