valeriya918

Найти минимальное число среди чисел

18.10.2012, 20:01. Показов 1493. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Чебурашка бежит вприпрыжку по лестнице вниз, начиная с самой верхней ступеньки до самой нижней. он иногда перепрыгивает через ступеньку, иногда через две, а иногда даже через три. а Гена перед этим на каждой ступеньке написал число в диапазоне от 1 до 1000. кроме того, в образовательных целях Гена дал задание: найти минимальное число среди чисел, написанных на ступеньках, но которые чебурашка наступал во время спуска по лестнице.
требуется написать программу , которая находит этот же минимум.

формат входных данных
первая строка входного файла содержит два числа N(1<=N<=100) и M(1<=M<=100). вторая строка содержит N целых чисел, которые гена написал на ступеньках. первое их этих чисел соответствует верхней ступеньке, а последнее нижней. третья строка содержит M целых чисел каждое из которых равно 1,2,3 или 4. первое из этих чисел означает длину первого прыжка с первой ступеньки, второе второго прыжка и т.д. Входные данные всегда корректны в том смысле , что сумма чисел во второй строке всегда равна N-1 , т.е. чебурашка начиная с первой ступеньки всегда закончит на последней. числа во всех строках разделены пробелами

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

пример данных
input.txt
5 4
131 71 12 15 6
1 1 1 1

output.txt
6
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.10.2012, 20:01
Ответы с готовыми решениями:

Найти минимальное число среди положительных и максимальное число среди отрицательных
Дана некоторая последовательность из целых чисел оканчивающихся нулем. Найти минимальное число среди положительных и максимальное число...

Найти среди чисел последовательности самое первое число, превосходящее заданное число а
найти среди чисел последовательности 1,1+1/2,1+1/2+1/3,...самое первое число , превосходящее заданное число а.Циклический вычислительный...

Найти минимальное значение среди заданных
напишите код в бейсике, смотрите вложения

3
 Аватар для Апострофф
9908 / 3924 / 742
Регистрация: 11.10.2011
Сообщений: 5,904
18.10.2012, 21:41
Цитата Сообщение от valeriya918 Посмотреть сообщение
что сумма чисел во второй строке всегда равна N-1
Может быть - в третьей?
Цитата Сообщение от valeriya918 Посмотреть сообщение
чебурашка начиная с первой ступеньки всегда закончит на последней
А последняя (шестёрка) и так минимальная - что тут решать

valeriya918, постарайтесь приложить более изощрённые исходные данные и хоть какие-то намёки на самостоятельные попытки решения.
0
18.10.2012, 21:50

Не по теме:

да че там прогу кодить, у Чебурашки спросить и все тут, ему же задание поставили :)

1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
18.10.2012, 22:33
Я думаю так
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
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Private Sub Command1_Click()
    Dim ff As Integer, s As String, sArr, N As Integer, M As Integer
    Dim NumOnStep() As Integer, Jump() As Integer
    Dim MinNum As Integer, i As Integer, j As Integer
    ff = FreeFile
    Open App.Path & "\Input.txt" For Input As #ff
        Input #1, s: sArr = Split(s, " ")
        N = sArr(0): M = sArr(1)            'число ступенек, число прыжков
        Print " N = " & N & "    M = " & M;: Print
        ReDim NumOnStep(1 To N)
        ReDim Jump(1 To M)
        Input #1, s: sArr = Split(s, " ")
        For i = 1 To N
             NumOnStep(i) = sArr(i - 1)      'числа на ступеньках
             Print NumOnStep(i) & ",  ";
        Next i
        Print
        Input #1, s: sArr = Split(s, " ")
        For i = 1 To M
             Jump(i) = sArr(i - 1)           'размер прыжков
             Print Jump(i) & ",  ";
        Next i
    Close #ff
     j = 1 'прыжки начинаются с первой ступеньки
    MinNum = NumOnStep(1)
    For i = 1 To M
             j = j + Jump(i)
            If NumOnStep(j) < MinNum Then MinNum = NumOnStep(j)
    Next i
    Print
    Print MinNum
    ff = FreeFile
    Open App.Path & "\Output.txt" For Output As #ff
          Print #ff, MinNum
    Close #ff
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.10.2012, 22:33
Помогаю со студенческими работами здесь

Найти минимальное число среди положительных чисел и максимальное число среди отрицательных чисел
Никак не могу понять ,как написать эту программу.Помогите пожалуйста. Задан одномерный массив А (10) действительных чисел. Ввести массив...

Найти минимальное число среди четных чисел и количество таких чисел
Ввести 23 целых числа, найти минимальное число среди четных чисел и количество таких чисел.

Найти минимальное число среди заданных чисел
Здравствуйте, помогите пожалуйста с решением здадачи по PascalABC. NET. Даны натуральное n, действительные числа A(1), … , A(n) (N –...

Найти минимальное число среди данных чисел.
1) Даны действительные числа a, b, c, d. Найти наибольшее из этих чисел (описать подпрограмму нахождения наибольшего из двух чисел) 2)...

Найти минимальное число среди последовательности вводимых чисел
Найти минимальное число среди последовательности вводимых чисел. Остановить обработку программы при вводе признака конца - предварительно...


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

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

Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru