Найти величину наибольшего отрицательного среди чисел заданной последовательности

@fanaman · Регистрация: 15.11.2016

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

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

@fanaman · 17.11.2016, 19:10 **[ТС]**

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

Добавлено через 19 минут
echs, ???

Добавлено через 16 минут
echs, что скажешь?

Добавлено через 1 час 20 минут
echs, ????поможешь?

@fanaman · 17.11.2016, 19:14 **[ТС]**

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

@fanaman · 17.11.2016, 21:02 **[ТС]**

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

есть вот из Qbasica:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
DIM a(1 TO 20)
 
INPUT "N <= 20"; n
PRINT "Vvod Massiv"
 
FOR i = 1 TO n
   INPUT a(i)
NEXT
 
FOR i = 1 TO n
   IF a(i) < 0 THEN EXIT FOR
   min = a(i + 1)
NEXT
 
FOR i = 1 TO n
   IF a(i) < 0 THEN
      IF ABS(a(i)) < ABS(min) THEN min = a(i)
   END IF
   min = a(i + 1)
NEXT
 
PRINT "OTVET: "; min
END

и есть из вроде визуал бейсик:

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
Option Explicit
Sub progr()
Dim N, i As Integer
Dim Max As Integer
Range(Cells(1, 1), Cells(100, 100)).Select
Selection.Clear
Cells(1, 1).Select
N = Val(InputBox("N - ?"))
For i = 1 To N
Cells(1, i) = Int(100 - Rnd * 200)
Next i
For i = 1 To N
If Cells(1, i) < 0 Then
Max = Cells(1, i)
End If
Next i
For i = 1 To N
If Max <> Cells(1, i) Then
Max = Cells(1, i)
End If
Next i
MsgBox ("max=" & Abs(Max))
End Sub

обьясните что правильно куда это все вписывать и что подставлять? буду очень благодарен

@Sasha_Smirnov · 17.11.2016, 22:35

Сообщение от fanaman

точно не мое

Так осваивайте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub uuu() 'kalbasiatka + Sasha_Smirnov
    Dim x As Double 'переменная для максимального значения < 0
    Dim el As Variant 'переменная для перебора клеток листа
    Dim neg As Boolean 'признак наличия в выделении чисел < 0
'----------
    ActiveSheet.UsedRange.Select
    x = -1000000 'глубокий негатив (нечто сильно левее нуля)
    
    For Each el In ActiveSheet.UsedRange.Value
        If el < 0 Then
            neg = True 'в диапазоне обнаружен отрицательный элемент
            If el > x Then x = el 'запомнили его (если он больше x)
            MsgBox "Кандидат на max на левой полуоси: " & x
        End If
    Next
    
    If not neg Then MsgBox "На этом листе нет чисел < 0.": Exit Sub
    MsgBox x 'самое большое отрицательное число на листе
End Sub

Тоже не сугубо моё — переделал программу kalbasiatka из темы linkel.

Откройте Excel, вбейте на лист N чисел, откройте VBE (по Alt-F8), туда этот код и жмите F5.

@kreotodr · 19.11.2016, 11:17

Эврика!!!!

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
Option Explicit
Sub progr()
Dim N, i As Integer
Dim Max As Integer
Range(Cells(1, 1), Cells(100, 100)).Select
Selection.Clear
Cells(1, 1).Select
N = Val(InputBox("N - ?"))
For i = 1 To N
Cells(1, i) = Int(100 - Rnd * 200)
Next i
For i = 1 To N
If Cells(1, i) < 0 Then
Max = Cells(1, i)
End If
Next i
For i = 1 To N
If Max <> Cells(1, i) Then
Max = Cells(1, i)
End If
Next i
MsgBox ("max=" & Abs(Max))
End Sub

@fanaman · 19.11.2016, 12:32 **[ТС]**

kreotodr, это тоже что я тебе скидывал!!! я кстати попробовал вроде работает только чего оно мне выбрасывает максимальное число????

Добавлено через 8 минут
kreotodr, и кадый раз разные числа хотя ставлю N-? всегда одинаково

@kreotodr · 19.11.2016, 17:30

Сообщение от fanaman

и кадый раз разные числа хотя ставлю N-? всегда одинаково

Отсюда мораль!
Никогда не следует браться за задачу, если хотябы толька этой задачи тебе не понятна...
А по сути - никогда не пытайтесь разобраться в ЧУЖИХ ОШИБКАХ!

@Sasha_Smirnov · 20.11.2016, 23:09

Сообщение от kreotodr

толька

kreotodr, а следует ли браться за письмо, когда хоть малая доля слов неизвестно как пишется?

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

Сообщение от Sasha_Smirnov

(хотя ответ он даёт неверный, но linkel рад…)

Уф! Всё исправлено — теперь ответ верный:

Сообщение от kalbasiatka

Вариант 2

А тема по-прежнему самая посматриваемая. Вы видели >100 просмотров в день (не считая правил форума)?!

@kreotodr · 20.11.2016, 23:29

Саша Смирнов перестаньте раз в час спамить!

@fanaman · 21.11.2016, 12:26 **[ТС]**

Sasha_Smirnov, из этого вроде что то получилось!!!! правильно я понял я задаю набор чисел положительных и отрицательных и из етих чисел программа должна найти максимально отрицательное????

@kreotodr · 21.11.2016, 13:10

Сообщение от fanaman

з этого вроде что то получилось!!!! правильно я понял я задаю набор

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

Мое понимание задачи

Вариант №1
1. запрос от пользователя N
2. программа генерирует эти N чисел случайным образом.
3. программа случайным образом каждое число умножает на (-1). Самое простое если генератор выбрасывает все до 0,5 то умножает на (-1), если более 0,5 то умножаем на 1. таким образом сформирован массив из положительных и отрицательных вещественных чисел.
4. проверка есть ли хотя бы одно отрицательное. если да то "ок", если нет повторяем с пункта 2
5. поиск самого большого отрицательного
6. запись результатов в Log файл, для возможности анализа...

Не забыть про RANDOMIZE TIMER для полноценного RND!
Вроде все...Во всяком случая я бы так решал задачу и защищал бы свое решение перед преподавателем...

Будут вопросы, обращайтесь.... поясню.....

Возможна также следующая реализация в случае если у нас уже есть готовый набор данных (например в файле..)

Вариант №2
1. считали набор данных из файла (обязательно с проверкой через EOF(-1))
2. проверка есть ли хотя бы одно отрицательное. если да то "ок", если нет то выдача сообщения, что нет отрицательного числа...
3. поиск самого большого отрицательного
4. запись результатов в Log файл, для возможности анализа...

@fanaman · 21.11.2016, 13:11 **[ТС]**

kreotodr, хорошо смотри вот пример щас скину скрины

@kreotodr · 21.11.2016, 13:12

Сообщение от fanaman

хорошо смотри вот пример щас скину скрины

спасибо, но мне совсем не нужны Ваши екселевские скрины....)))
Как я писал уже, не пытайтесь разобраться в чужих ошибках....

@fanaman · 21.11.2016, 13:18 **[ТС]**

kreotodr,

@fanaman · 21.11.2016, 13:26 **[ТС]**

kreotodr,

@fanaman · 21.11.2016, 13:30 **[ТС]**

kreotodr, короче понятно что ничего не понятно

@kreotodr · 22.11.2016, 09:40

Сообщение от fanaman

ороче понятно что ничего не понятно

пример использвоания генератора:

Visual Basic
1
2
3
4
5
6
7
8
Dim dbTmp As Double
        Dim i As Double
        Randomize Timer
        
        For i = 1 To 10
            dbTmp = Int(Rnd * 1000)
            strTimeSess = strTimeSess & Right(Str(dbTmp), 1)
        Next

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Open FileNames For Input As #fNum
         While EOF(fNum) = False
           DoEvents
            Line Input #fNum, strReadData
                Debug.Print strReadData
                '
                ' поиcк блока "TotalTimeWork (---:--:--:ss)"
                '
                        startPos = 1
                        startPos = InStr(startPos, strReadData, "TotalTimeWork (---:--:--:ss)", vbTextCompare)
                        If startPos > 1 Then
                            IniSett_TotalTimeWork = Trim(Right(strReadData, Len(strReadData) - (startPos + 30)))
                        End If
           Wend
    Close #fNum

Пример записи данных в файл:

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
39
Public Sub saveSTS(fileName As String)
On Error GoTo ErrorHandler
    fNum = FreeFile
         If Dir(fileName) = "" Then
            Open fileName For Append As fNum
                Print #fNum, ""
                Print #fNum, "               #######################################################################################"
                Print #fNum, "               #                                                                                     #"
                Print #fNum, "               #                                  Uptime.log                                         #"
                Print #fNum, "               #                                                                                     #"
                Print #fNum, "               # This file is generated by the program.                                              #"
                Print #fNum, "               # If you do not understand the meaning of the text (see below). Please do not edit it.#"
                Print #fNum, "               # Otherwise the program will not work correctly somozhet. Thank U                     #"
                Print #fNum, "               #                                                                                     #"
                Print #fNum, "               # (c) NoS@Soft Copyright  Nosar Aleksandr                                             #"
                Print #fNum, "               #      For all questions ...                                                          #"
                Print #fNum, "               #      Email:   [email]oleksandr.nosar@gmail.com[/email]                                             #"
                Print #fNum, "               #      Skype:   kreotodr                                                              #"
                Print #fNum, "               #                                                                                     #"
                Print #fNum, "               #                      This file is generated automatically                           #"
                Print #fNum, "               # If you do not understand the meaning of their floor lines, please do not edit them! #"
                Print #fNum, "               #                                                                                     #"
                Print #fNum, "               #######################################################################################"
                Print #fNum, ""
                Print #fNum, ""
                Print #fNum, "[Staticktik for Uptime]"
                Print #fNum, ""
            Close
         End If
         
    Open fileName For Append As fNum
        Print #fNum, "   " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & " Session {" & strTimeSess & "}" & "   CurrentSessTime (ddd:hh:mm:ss) = "; strTimeFormat & _
        "   TotalTimeWork (ddd:hh:mm:ss) = "; strTimeFormatTotal & "   CurrentSessTime (---:--:--:ss) = "; Format(Trim(Str(lngSec)), "000000000") & "   TotalTimeWork (---:--:--:ss) = "; Format(Trim(Str(dblTimeWorkTOTALsec)), "000000000")
    Close
 
Exit Sub
ErrorHandler:
    DebugErrWriteLog "mdlMain", "saveSTS", Err
End Sub

Добавлено через 1 минуту
теперь соберите все воедино, добавьте алгоритм работы вашей задачи и дело в шляпе...

Добавлено через 1 минуту
Ну ти так чтобы препод опписялся....

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
39
40
41
42
43
44
45
46
47
'
' Обработчик ошибок с записью в лог...
'
Public Sub DebugErrWriteLog(errModule As String, errProcedure As String, ErrObj As ErrObject)
    
    Dim HRESULT             As String
    Dim HRESULTDLL          As String
    Dim fNoom               As Integer
    Dim ErrNoom             As Long
    Dim ErrNumber           As Long
    Dim ErrDescr            As String
    Dim ErrLastDll          As Long
    
    
    ErrNumber = ErrObj.Number
    ErrDescr = ErrObj.Description
    ErrLastDll = ErrObj.LastDllError
    
        With OSVer
                curTaskDATE = Format(Date, "dd-mm-yyyy")
                curTaskTIME = Format(Time, "hh:mm:ss")
                curTaskUesrType = .UserType
                curTaskUesrName = GetUserName
                curTaskCompName = GetComputerName
                curTaskOS = .OSName & " " & .Bitness & " " & .Edition & " (Build " & .Build & ")"
        End With
    
    Err.Clear
    
    If ErrNumber <> 0 Then HRESULT = MessageText(ErrNumber)
    
    fNum = FreeFile
    Open App.Path & "\Uptime.Err" For Append As #fNum
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Начата запись лог файлов..."
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Текущий пользователь   : " & curTaskUesrName
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Тип пользователя       : " & curTaskUesrType
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Операционная система   : " & curTaskOS
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Имя компьютера         : " & curTaskCompName
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") "
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Err                   : " & ErrNumber
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Err.Info              : " & ErrDescr
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Err.InfoExt           : " & HRESULT
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Err.Module            : " & errModule
        Print #fNum, Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ") " & "Err.Procedure         : " & errProcedure
    Close fNum
End Sub

Добавлено через 42 секунды

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
39
'
' Получение инфы по ошибке
'
Public Function MessageText(lCode As Long) As String
    On Error Resume Next
    Const FORMAT_MESSAGE_FROM_SYSTEM    As Long = &H1000&
    Const FORMAT_MESSAGE_IGNORE_INSERTS As Long = &H200
    Dim sRtrnCode   As String
    Dim lret        As Long
    sRtrnCode = Space$(MAX_PATH)
    lret = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, ByVal 0&, lCode, ByVal 0&, sRtrnCode, MAX_PATH, ByVal 0&)
    If lret > 0 Then
        MessageText = Left$(sRtrnCode, lret)
        MessageText = Replace$(MessageText, vbCrLf, vbNullString)
    End If
End Function
 
Public Function getOSVersion() As String
    Dim objOperatingSystem As Object
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & ".\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOperatingSystem In colOperatingSystems
      getOSVersion = objOperatingSystem.Caption & " " & objOperatingSystem.version
    Next
End Function
 
Public Function GetComputerName() As String
   Dim sBuffer As String * 255
   If GetComputerNameA(sBuffer, 255&) <> 0 Then
       GetComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
   End If
End Function
 
Public Function GetUserName() As String
    Dim sUserNameBuff As String * 255
    sUserNameBuff = Space(255)
    Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
    GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
End Function

Добавлено через 49 секунд
не забыть про декларации!!

Visual Basic
1
2
3
4
5
6
Option Explicit
Public Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long
Public Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Public Const MAX_PATH As Integer = 260
Dim OSVer                       As New clsOSInfo

@kreotodr · 22.11.2016, 09:45

Проект в сборе

@kreotodr · 22.11.2016, 09:46

Писал на спех, утром... посему масса граматических, синтаксических и прочих ошибок))))

@fanaman · 22.11.2016, 12:33 **[ТС]**

kreotodr, ого это что????

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34

	Найти величину наибольшего отрицательного среди чисел заданной последовательности 16.11.2016, 00:56. Показов 4118. Ответов 60 Метки нет (Все метки) Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности. 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 19:10 [ТС]
	echs, ну смотри задача такова: Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности. если сможешь помоги пожалуйста только если можно в визуал бейсике Добавлено через 19 минут echs, ??? Добавлено через 16 минут echs, что скажешь? Добавлено через 1 час 20 минут echs, ????поможешь? 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 19:14 [ТС]
	Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности. только если можно в визуал бейсике 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	19.11.2016, 12:32 [ТС]
	kreotodr, это тоже что я тебе скидывал!!! я кстати попробовал вроде работает только чего оно мне выбрасывает максимальное число???? Добавлено через 8 минут kreotodr, и кадый раз разные числа хотя ставлю N-? всегда одинаково 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	20.11.2016, 23:29
	Саша Смирнов перестаньте раз в час спамить! 1

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	21.11.2016, 12:26 [ТС]
	Sasha_Smirnov, из этого вроде что то получилось!!!! правильно я понял я задаю набор чисел положительных и отрицательных и из етих чисел программа должна найти максимально отрицательное???? Миниатюры 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	21.11.2016, 13:11 [ТС]
	kreotodr, хорошо смотри вот пример щас скину скрины 1

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	21.11.2016, 13:18 [ТС]
	kreotodr, Миниатюры 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	21.11.2016, 13:26 [ТС]
	kreotodr, Миниатюры 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	21.11.2016, 13:30 [ТС]
	kreotodr, короче понятно что ничего не понятно 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	22.11.2016, 09:46
	Писал на спех, утром... посему масса граматических, синтаксических и прочих ошибок)))) 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	22.11.2016, 12:33 [ТС]
	kreotodr, ого это что???? 0