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

@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 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

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

	Найти величину наибольшего отрицательного среди чисел заданной последовательности 16.11.2016, 00:56. Показов 4041. Ответов 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