Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1Тарас1
3 / 3 / 0
Регистрация: 21.01.2013
Сообщений: 70
1

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

21.01.2013, 15:56. Просмотров 851. Ответов 1
Метки нет (Все метки)

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

________________
мне кажется что это подходит
for i := 0 to size-1 do if (a[ i ] < 0) then s1 := s1 + a[ i ] else s2 := s2 + a[ i ];
помогите прописать программу полностью
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2013, 15:56
Ответы с готовыми решениями:

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

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

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

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

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

1
Kasperdun
34 / 34 / 22
Регистрация: 19.04.2012
Сообщений: 61
21.01.2013, 16:04 2
Лучший ответ Сообщение было отмечено 1Тарас1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var i,n:integer;
    a:array[1..10] of real;
    s1,s2:real;
begin
write('Введи N: ');
readln(n);
for I:=1 to n do
begin
write('Введи a[',i,']=');
readln(a[i]);
end;
s1:=0;
s2:=0;
for i := 1 to n do 
if (a[ i ] < 0) then 
s1 := s1 + a[ i ] 
else 
s2 := s2 + a[ i ];
writeln('Сумма положительных: ',s2);
writeln('Сумма отрицательных: ',s1);
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2013, 16:04

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

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

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


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

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

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