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

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

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

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

Найти сумму и число тех элементов массива X1, X2,.,Xn, которые попадают на заданный отрезок
нужна программа в Pascal и блок схема. Помогите пожалуйста

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

Найти сумму и число тех элементов заданного массива, которые попадают на заданный отрезок
Помогите с задачей. Программа на С++. Можно как-нибудь по-проще... Все данные должны вводиться с...

Найти сумму и число тех элементов заданного массива X1,X2, … ,Xn, которые попадают на заданный отрезок.
1. чНайти сумму и число тех элементов заданного массива X1,X2, … ,Xn, которые попадают на заданный...

3
Goldeeeeeeen !
243 / 235 / 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
0 / 0 / 0
Регистрация: 27.11.2011
Сообщений: 13
12.12.2011, 17:04  [ТС] 3
а с рэндомом можно?
0
Goldeeeeeeen !
243 / 235 / 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2011, 18:10

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

Найти сумму и число тех элементов заданного массива, которые попадают на заданный отрезок
Прошу помочь решить задачу по программированию 1)Найти сумму и число тех элементов заданного...

Найти сумму элементов массива, которые попадают в сегмент
Заданный массив (ci) содержит t элементов. Найти сумму тех элементов массива , которые попадают в...

Двумерные массивы.Найти сумму и произведение тех элементов, которые попадают в заданный интервал
Дана матрица А=4*6.найти сумму и произведение тех элементов матрицы,значения которых попадают в...

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


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

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

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