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

массив, сумма элементов

12.12.2011, 10:18. Просмотров 867. Ответов 2
Метки нет (Все метки)

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

Массив: количество элементов, удовлетворяющих условию, сумма элементов, кратных 3
В одномерном массиве Х, состоящем из N целых элементов, вычислить: a)...

Одномерный массив. Вычислить разность C= A-B, где А-произведение положительных элементов, а В- сумма элементов по абсолютному значению массива
Вычислить разность C= A-B, где А-произведение положительных элементов, а В-...

Одномерный массив. Сумма элементов
Необходимо составить программу с помощью одномерного массива которая выведет...

Двумерный массив. Сумма элементов
Дан двухмерный массив. Составить программу расчета суммы двух любых элементов...

Одномерный массив. Сумма, произведение элементов
Дана линейная таблица А, N <=50. Найти сумму ее элементов, расположенных до...

2
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
12.12.2011, 16:15 2
Лучший ответ Сообщение было отмечено Friss как решение

Решение

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.
0
riv94
64 / 64 / 29
Регистрация: 13.02.2011
Сообщений: 392
12.12.2011, 16:20 3
можно еще проще...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program zad_1;
var
n,a,b,s:integer;
begin
writeln('vvedite razmernost');
readln(n);
writeln('vvedite massiv');
for i:=1 to n do read(m[i]);
writeln('vvedite granitsy segmenta A i B');
readln(a,b);
s:=0;
for i:=a to b do
 s:=s+m[i];
writeln(s);
end.
Хотя подождите, вы определили сегмент как диапазон чисел, а я как диапазон ячеек Пусть ТС воспользуется исходя из поставленной задачи....
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2011, 16:20

Выяснить, что больше: сумма элементов главной диагонали матрицы или сумма элементов побочной
Выяснить, что больше: сумма элементов главной диагонали матрицы размером 4*4...

Двумерный массив. Сумма элементов четвертой строки
Дан двухмерный массив. Выяснить, является ли сумма элементов четвертой строки...

Вывести массив, в котором сумма элементов находящихся под побочной диагональю наименьшая
Даны 4 массива A, B, C, D. Найти и вывести на экран массив, в котором сумма...


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

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

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