С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Friss
0 / 0 / 0
Регистрация: 27.11.2011
Сообщений: 13
1

Найти сумму тех элементов массива, которые попадают в заданный сегмент

12.12.2011, 14:31. Просмотров 942. Ответов 3
Метки нет (Все метки)

задан массив. Содержит t элементов. Найти сумму тех элементов массива, которые попадают в сегмент [a;b]
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2011, 14:31
Ответы с готовыми решениями:

Найти сумму элементов массива, которые попадают в диапазон от a до b
Найти сумму элементов массива, которые попадают в диапазон от a до b( a и b заданы с клавиатуры) ....

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10
Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в...

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от -2 до 10
Pascal ABC

Найти сумму тех элементов массива, которые кратны К
1.В массиве A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К.

Найти сумму тех элементов массива, которые меньше заданного числа D
В массиве чисел А1, А2, …АN найти сумму тех элементов, которые меньше заданного числа D....

3
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
12.12.2011, 16:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var x:array [1..100] of integer;
    i,a,b,t,s:integer;
 begin
 write('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ* T: ');
 readln(t);
 write('Ââåäèòå ñåãìåГ*ГІ (A ïîòîì Г‚): ');
 readln(a,b);
 writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў');
 for i:=1 to t do
 readln(x[i]);
 s:=0;
 for i:=1 to t do
 if (x[i]>=a) and (x[i]<=b) then s:=s+x[i];
 writeln('ÑóììГ* = ',s);
 end.
1
Friss
0 / 0 / 0
Регистрация: 27.11.2011
Сообщений: 13
12.12.2011, 17:04  [ТС] 3
а с рэндомом можно?
0
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
12.12.2011, 18:10 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x:array [1..100] of integer;
    i,t,a,b,s:integer;
 begin
 randomize;
 write('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ* T: ');
 readln(t);
 write('Ââåäèòå ñåãìåГ*ГІ (A ïîòîì Г‚): ');
 readln(a,b);
 writeln('ГЊГ*Г±Г±ГЁГў');
 for i:=1 to t do
 begin
 x[i]:=random(20)-10;
 write(x[i]:4);
 end;
 writeln;
 s:=0;
 for i:=1 to t do
 if (x[i]>=a) and (x[i]<=b) then s:=s+x[i];
 writeln('ÑóììГ* = ',s);
 end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2011, 18:10

Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10.
всем! Пожалуйста помогите решить задачу.Очень надо!ГОС! Вычислить среднее арифметическое значение...

Найти сумму тех элементов массива, которые кратны K
В массив А занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.


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

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

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