Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
#1

Вычислить сумму тех элементов последовательности, номера которых на единицу больше чем значения элемента последовательности

11.03.2010, 22:58. Просмотров 647. Ответов 1
Метки нет (Все метки)

Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых на единицу больше чем значения элемента последовательности.

Если можно то весь текст программы, огромное спасибо)))

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2010, 22:58
Ответы с готовыми решениями:

Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями
25. Дана последовательность из n вещественных чисел. Вычислить сумму тех...

Вычислить сумму тех элементов последовательности, порядковые номера которых - простые числа
Дана последовательность из n целых чисел. Вычислить сумму тех из них,...

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

Вычислить сумму элементов числовой последовательности, в записи значения которых содержится цифра 5
var a,i,s,n:integer; begin s:=0; read(n); for i:=1 to n do begin...

Вычислить сумму элементов числовой последовательности, в записи значения которых содержится две разные цифры
Вычислить сумму элементов числовой последовательности, в записи значения...

1
Puporev
Модератор
54216 / 41849 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
12.03.2010, 09:11 #2
Лучший ответ Сообщение было отмечено Miller61 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n,i,a,s:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
writeln('Введите ',n,' чисел');
for i:=1 to n do
 begin
  write('a',i,'=');
  readln(a);
  if i-a=1 then s:=s+a;
 end;
write('Сумма=',s);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2010, 09:11

Вывести индекс тех элементов амссива, значения которых больше значения предыдущего элемента
На паскале Дан массив целых чисел,состоящий из 10 элементов.Заполнить его с...

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

Получить сумму членов последовательности значения, которых меньше их порядкового номера
Даны натуральное число n , действительные числа a1,....,an . В ...


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

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

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