Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Likimij
0 / 0 / 0
Регистрация: 06.09.2015
Сообщений: 29
1

Получить сумму членов последовательности, принадлежащих отрезку

12.09.2015, 11:57. Просмотров 1079. Ответов 2
Метки нет (Все метки)

Кого не затруднит помочь? Буду примного благодарен.
Дано натуральное число n, действительные числа Х1, Х2,...., Хn. В последовательности Х1, Х2,..., Хn. получить сумму членов, принадлежащих отрезку [3;7], а так же число таких членов
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.09.2015, 11:57
Ответы с готовыми решениями:

Найти сумму элементов, не принадлежащих отрезку
одномерные массивы: 1) В массиве чисел А1, А2, …, An найти сумму элементов, не принадлежащих...

Найти сумму элементов массива, не принадлежащих отрезку
одномерные массивы: 1) В массиве чисел А1, А2, …, An найти сумму элементов, не принадлежащих...

Подсчитать сумму элементов массива, принадлежащих заданному отрезку
24. Дан целочисленный массив размера n x m и два числа a и b. Посчитайте сумму элементов массива,...

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

Получить удвоенную сумму всех положительных членов последовательности
Даны нат. число, действительные числа X1,...,Xn. Получить удвоенную сумму всех положительных членов...

2
Puporev
Модератор
57126 / 43609 / 30139
Регистрация: 18.05.2008
Сообщений: 103,983
12.09.2015, 12:39 2
Лучший ответ Сообщение было отмечено Likimij как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var n,i,k:integer;
    x,s:real;
begin
repeat
write('Введите количество чисел n=');
readln(n);
until n>0;
s:=0;
k:=0;
writeln('Введите ',n,' действительных чисел, в том числе из интервала [3;7]');
for i:=1 to n do
 begin
  write('x',i,'=');
  readln(x);
  if(x>=3)and(x<=7)then
   begin
    s:=s+x;
    k:=k+1;
   end;
 end;
write('Сумма чисел из интервала [3;7]=',s:0:2,' их количество=',k);
end.
1
Likimij
0 / 0 / 0
Регистрация: 06.09.2015
Сообщений: 29
12.09.2015, 13:03  [ТС] 3
благодарю
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.09.2015, 13:03

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

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

Получить удвоенную сумму всех положительных членов последовательности
Одномерные массивы. Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить...


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

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

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