Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
dencil
10 / 10 / 22
Регистрация: 23.09.2013
Сообщений: 145
1

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

11.10.2013, 20:37. Просмотров 1106. Ответов 6
Метки нет (Все метки)

Даны: 1) Натуральное число n, целые числа а1,...., аn. Получить сумму положительных и отрицательных членов последовательности а1,....,аn.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.10.2013, 20:37
Ответы с готовыми решениями:

Получить сумму положительных и отрицательных членов последовательности a1, ..an
Дано натуральное число n, действительные числа a1, ..an ..получить сумму положительных и...

Получить сумму положительных и отрицательных членов последовательности а1,....,аn.
Даны: 1) Натуральное число n, целые числа а1,...., аn. Получить сумму положительных и отрицательных...

Получить сумму положительных и количество отрицательных членов последовательности
Сделал программу - работает(проверил) но препод говорит, что сначала должна идти дополнительная...

Получить количество отрицательных членов последовательности и число членов принадлежащих отрезку
дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...

Получить количество отрицательных членов последовательности и число членов, принадлежащих отрезку
Дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...

6
ilyadenisovid
30 / 45 / 38
Регистрация: 20.03.2013
Сообщений: 162
11.10.2013, 20:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test;
var
n, i, sum1, sum2, m : integer;
begin
writeln('n = ');
readln(n);
sum1 := 0;
sum2 := 0;
for i:=1 to n do
begin
writeln('Введите ', i, ' - е число');
readln(m);
if m > 0 then sum1 := sum1 + m
else sum2 := sum2 + m;
end;
writeln('Сумма положительных - ', sum1, '. Сумма отрицательных - ', sum2);
readln;
end.
1
dencil
10 / 10 / 22
Регистрация: 23.09.2013
Сообщений: 145
11.10.2013, 20:52  [ТС] 3
А можно сделать так, чтобы мы вводили 1 элемент массива и последний, а не все по порядку?
И еще он должен считать не введенные элементы, а строго от a1 до n.
Например: n=4, a1=2, 2+3+4+5=14.
0
erl27
900 / 748 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
11.10.2013, 20:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
  n, i, minus, plus: integer;
  A: array[1..100] of integer;
  
begin
  randomize;
  n := random(100);
  writeln('Формируем случайный массив:');
  writeln;
  minus := 0;
  plus := 0;
  for i := 1 to n do
  begin
    a[i] := -100 + random(201);
    write(a[i], ' ');
    if a[i] > 0 then plus := plus + a[i]
    else minus := minus + a[i]
  end;
  writeln;
  writeln;
  writeln('Результат:');
  writeln(' Сумма положительных: ', plus);
  writeln(' Сумма отрицательных: ', minus);
end.
1
dencil
10 / 10 / 22
Регистрация: 23.09.2013
Сообщений: 145
11.10.2013, 21:02  [ТС] 5
Тут должна присутствовать последовательность. Т.е. мы вводим только первый и последний элементы массива, и считать должно только от 1 до последнего. Отрицательные отдельно (если есть), положительные отдельно(если есть).
0
ilyadenisovid
30 / 45 / 38
Регистрация: 20.03.2013
Сообщений: 162
11.10.2013, 21:09 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program test;
var
n, i, sum1, sum2, m, a : integer;
begin
writeln('a = ');
readln(a);
writeln('n = ');
readln(n);
sum1 := 0;
sum2 := 0;
for i:=a to n do
begin
writeln('Введите ', i, ' - е число');
readln(m);
if m > 0 then sum1 := sum1 + m
else sum2 := sum2 + m;
end;
writeln('Сумма положительных - ', sum1, '. Сумма отрицательных - ', sum2);
readln;
end.
1
erl27
900 / 748 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
11.10.2013, 21:20 7
Цитата Сообщение от dencil Посмотреть сообщение
Отрицательные отдельно (если есть), положительные отдельно(если есть)
моя программа как раз это и делает - считает отдельно.
0
11.10.2013, 21:20
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2013, 21:20

Сумма положительных и количество отрицательных членов последовательности
Мое задание выглядит так: Даны натуральное число n и натуральные a1,…,an, где n<=3000. Получить...

Верно ли, что в последовательности больше отрицательных членов, чем положительных
Даны натуральные числа n,a1,a2....,an..Верно ли, что в последовательности больше отрицательных...

Найти сумму отрицательных членов последовательности
помогите решить задачу пожалуйста Найти сумму отрицательных членов последовательности.......


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru