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

@ivan-pryanik · Регистрация: 12.12.2010

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

@YuraAAA · 13.12.2010, 00:54

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub main()
Dim A() As Single, i As Integer, j As Integer, diff As Integer, elem As Single
Dim n As Integer
n = InputBox("n")
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(100 * Rnd - 50)
Cells(i, 1) = A(i)
Next i
diff = 0
For i = 1 To n - 1
For j = i + 1 To n
If A(i) = A(j) And j - i > diff Then diff = j - i: elem = A(i)
Next j
Next i
If diff > 0 Then Cells(1, 2) = "Макимальное расстояние = " & diff: Cells(1, 3) = "Элемент = " & elem Else Cells(1, 2) = "Нет одинаковых"
End Sub

@Ципихович Эндрю · 13.12.2010, 01:11

чтобы понять о чём идёт речь, так как я запускал Ваш код в Ворде, эту строку Cells(i, 1) = A(i), которую выделяет, чем заменить, спасибо

@ivan-pryanik · 13.12.2010, 12:35 **[ТС]**

алгоритм сможешь?

Новые блоги и статьи Все статьи Все блоги /
Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .	Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет иметь приблизительный результат вычисления для метода обработки данных из double buffering. Hrethgir 10.04.2025 В продолжение Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу можно будет корректировать по ходу. Это потому что. . .
Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Линейное решение не линейной задачи (емкость вычислений в сравнении с традиционными решениями пока не определена). Hrethgir 10.04.2025 В рамках предстоящих вычислений пришлось (да, я тоже знаю про корень числа, и про степеня, и прочие теоремы, но. . . ) найти способ нахождения отношения двух углов. . . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .	Vue SFC компонент на PHP с Fusion Jason-Webb 09.04.2025 PHP на сервере и JavaScript на клиенте — классическое сочетание, которое, несмотря на свою эффективность, создает определенный когнитивный диссонанс при разработке. В этом контексте появляются. . .

@ivan-pryanik 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 27

	Сформируйте массив целых чисел и определите максимальное расстояние между парой одинаковых чисел 13.12.2010, 00:47. Показов 1961. Ответов 3 Метки нет (Все метки) Сформируйте массив целых чисел и определите максимальное расстояние между парой одинаковых чисел 0

@Ципихович Эндрю 1696 / 568 / 74 Регистрация: 10.04.2009 Сообщений: 9,235
	13.12.2010, 01:11
	чтобы понять о чём идёт речь, так как я запускал Ваш код в Ворде, эту строку Cells(i, 1) = A(i), которую выделяет, чем заменить, спасибо 0

@ivan-pryanik 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 27
	13.12.2010, 12:35 [ТС]
	алгоритм сможешь? 0