Найти сумму всех членов последовательности, следующих за членом, равным а

@1mello · Регистрация: 24.12.2012

Студворк — интернет-сервис помощи студентам

Даны целые числа a,n (n>0), Если в последовательности есть хотя бы один член, равный a, то определить его номер и найти сумму всех членов последовательности, следующих за ним (т.е. за первым членом последовательности, равным a). Если такого члена в последовательности нет, то логической переменной Q присвоить значение false.

Скрипт · 25.12.2012, 19:21

1mello, задача не понятна.

@1mello · 25.12.2012, 19:33 **[ТС]**

Честно, мне тоже. Но такую дали, не могу разобраться

@all_angarsk · 25.12.2012, 20:58

Visual Basic
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
Private Sub CommandButton1_Click()
Dim n As Integer, a As Integer, g() As Integer, Q As Boolean, f As Integer, sum As Integer, m As Integer
Cells.Clear
n = 30
a = 10
Q = True
ReDim g(n)
Randomize
For i = 1 To n
g(i) = Rnd * 30
Cells(i + 1, 2) = g(i)
If g(i) = a Then
f = 1
m = i
sum = g(i)
End If
If f = 1 Then
sum = sum + g(i)
End If
 
Next
If sum = 0 Then
Q = False
End If
Cells(i + 1, 4) = m
Cells(i + 1, 5) = Q
Cells(i + 1, 6) = sum
End Sub

допиши на лист заголовки

Добавлено через 13 минут

Visual Basic
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
Dim n As Integer, a As Integer, g() As Integer, Q As Boolean, f As Integer, sum As Integer, m As Integer
Cells.Clear
n = 30
a = 10
Q = True
ReDim g(n)
Randomize
For i = 1 To n
g(i) = Rnd * 30
Cells(i + 1, 2) = g(i)
If f = 1 Then
sum = sum + g(i)
End If
 
If (g(i) = a) And (f = 0) Then
f = 1
m = i
End If
 
 
Next
If sum = 0 Then
Q = False
End If
Cells(i + 1, 4) = m
Cells(i + 1, 5) = Q
Cells(i + 1, 6) = sum
End Sub

не проверил когда их два значения или больше

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@1mello 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 7

	Найти сумму всех членов последовательности, следующих за членом, равным а 25.12.2012, 17:57. Показов 1480. Ответов 3 Метки нет (Все метки) Даны целые числа a,n (n>0), Если в последовательности есть хотя бы один член, равный a, то определить его номер и найти сумму всех членов последовательности, следующих за ним (т.е. за первым членом последовательности, равным a). Если такого члена в последовательности нет, то логической переменной Q присвоить значение false. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	25.12.2012, 19:21
	1mello, задача не понятна. 0

@1mello 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 7
	25.12.2012, 19:33 [ТС]
	Честно, мне тоже. Но такую дали, не могу разобраться 0