Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 24
1

Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].

19.09.2010, 11:19. Показов 2831. Ответов 8
Метки нет (Все метки)

дано натуральное число n, действительные числа a [1], ..., a [n]. Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.09.2010, 11:19
Ответы с готовыми решениями:

Получить удвоенную сумму всех положительных членов последовательности A 1, A2 , ..., An
Даны натуральное число n, действительные числа A1,A2,...,An.Получить удвоенную сумму всех...

Получить удвоенную сумму всех положительных членов последовательности
Завтро зачет а я не знаю как решить эту задачу, помогите пожалуйста очень срочно надо!!! Даны...

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

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

8
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
19.09.2010, 11:23 2
Pascal
1
2
3
4
S:=0;
for j:=1 to n do
  if a[j]>0 then S:=S+a[j];
S:=2*S; //удвоенная сумма...
1
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
19.09.2010, 11:28 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a: array [1..100] of double; n, i: 1..100; s: double;
begin
readln(n);
for i := 1 to n do readln(a[i]);
s := 0;
for i := 1 to n do 
  if a[i] > 0 then s := s + a[i];
 
s := s * 2;
writeln(s:10:10);
readln;
end.
1
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
19.09.2010, 11:31 4
И нафига тут два цикла??? А в одном все сделать трудно?
0
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
19.09.2010, 11:39 5
Mad_Dog, зачем тут массив я тоже не понимаю... тс попросил - я сделал
0
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
19.09.2010, 11:45 6
iama, я ваще-то про циклы, а не про массивы в твоем коде...
0
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
19.09.2010, 11:50 7
Mad_Dog, без массива код выглядел бы так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n, i: 1..100; s, t: double;
begin
readln(n);
s := 0;
for i := 1 to n do begin
  readln(t);
  if t > 0 then s := s + t;
end;  
 
s := s * 2;
writeln(s:10:10);
readln;
end.
что было бы приличным решением задачи. но есть массивы, и поэтому решение выглядит так, как в 3 посте. если делать в один цикл, то рука тянется убрать массив. а тот вариант кагбэ предусматривает возможную дописку изменения введенного массива перед суммированием.
0
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
19.09.2010, 12:01 8
Цитата Сообщение от iama Посмотреть сообщение
зачем тут массив я тоже не понимаю... тс попросил - я сделал
Цитата Сообщение от ro_mashka2000 Посмотреть сообщение
сумму всех положительных членов последовательности a [1], ... a [n].
Где здесь про массив ТС просил? Последовательность это может и не массив.
0
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
19.09.2010, 12:02 9
Puporev, ну эт я дофантазировал второй вариант катит
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.09.2010, 12:02

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

Получите удвоенную сумму всех положительных членов входного потока данных
Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите...


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

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

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