8 / 8 / 2
Регистрация: 08.11.2009
Сообщений: 78
1

Получить сумму и количество элементов вектора

27.10.2010, 11:08. Показов 1299. Ответов 1
Метки нет (Все метки)

Задание:
Дан вектор A[1:35]. Получить сумму и количество элементов находящихся в диапазонах [-4:+2] и [5:11]. Получение суммы или количества элементов в заданном диапазоне реализовать одной функцией и одной процедурой.

Заранее благодарен...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2010, 11:08
Ответы с готовыми решениями:

Подсчитать количество нулевых, сумму и количество положительных и отрицательных элементов вектора
Дан Вещественный векторX(x0,x1,...x30). Подсчитать количество нулевых, сумму и количество...

Найти сумму положительных элементов вектора Е(7) и их количество
Найти сумму положительных элементов вектора Е(7) и их количество. Далее выкладываю свой код: ...

Дан вектор X(x1,x2,.,x10). Найти количество и сумму нечетных отрицательных элементов вектора
Дан вектор X(x1,x2,.,x10). Найти количество и сумму нечетных отрицательных элементов вектора...

Даны векторы Z(6) и Y(6). Подсчитать сумму элементов вектора Z и количество пар, удовлетворяющих условию
Даны векторы Z(6) и Y(6). Подсчитать сумму элементов вектора Z и количество пар, удовлетворяющих...

1
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
27.10.2010, 11:30 2
Лучший ответ Сообщение было отмечено sir_90115 как решение

Решение

С одной процедурой.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const n=35;
type mas=array[1..n] of integer;
procedure Diap(x:mas;var s:integer;var k:byte);
var i:byte;
begin
s:=0;
k:=0;
for i:=1 to n do
if((x[i]>=-4)and(x[i]<=2))or((x[i]>=5)and(x[i]<=11))then
 begin
  s:=s+x[i];
  k:=k+1;
 end;
writeln('Элементы из интервалов [-4;2], [5;11]:');
writeln('Сумма=',s,'  количество=',k);
end;
var a:mas;
    sum:integer;
    i,kol:byte;
begin
clrscr;
randomize;
writeln('Массмв А:');
for i:=1 to n do
 begin
  a[i]:=random(30)-10;
  write(a[i]:4);
 end;
writeln;
Diap(a,sum,kol);
readln
end.
С одной функцией.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
const n=35;
type mas=array[1..n] of integer;
function Diap(x:mas;var s:integer):byte;
var i,k:byte;
begin
s:=0;
k:=0;
for i:=1 to n do
if((x[i]>=-4)and(x[i]<=2))or((x[i]>=5)and(x[i]<=11))then
 begin
  s:=s+x[i];
  k:=k+1;
 end;
Diap:=k;
end;
var a:mas;
    sum:integer;
    i,kol:byte;
begin
clrscr;
randomize;
writeln('Массмв А:');
for i:=1 to n do
 begin
  a[i]:=random(30)-10;
  write(a[i]:4);
 end;
writeln;
kol:=Diap(a,sum);
writeln('Элементы из интервалов [-4;2], [5;11]:');
writeln('Сумма=',sum,'  количество=',kol);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2010, 11:30

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

Даны 2 вектора определить у какого вектора наибольшее количество положительных элементов
Даны 2 вектора определить у какого вектора наибольшее количество положительных элементов. Программу...

Определить количество положительных элементов вектора С(10) и заменить этим значением минимальный элемент вектора А(5)
Ребята помогите пожалуйста с задачкой. Я сам не шарю в C++, но в этом семестре появился этот...

Составить главную программу и функцию. Для данного вектора А(М) найти количество неповторяющихся элементов вектора
Здравствуйте. Буду очень благодарен,если кто нибудь напишет два кода к этим задачам. Спасибо за...


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

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

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