• Вопрос по информатике:

    В массиве чисел A[1 .. N] найти первое число, которое больше заданного числа Р.

    • Автор:

      solomonjuarez
  • ????

    • Отвечал:

      ashleyhbbn
    • 0
    Извините но нет((

    • Отвечал:

      hoochhjoc
    • 0
    все равно, спасибо вам большое))))

    • Отвечал:

      clarahayes
    • 0
    Си пока что не изучаю((

    • Отвечал:

      bubble buttmtng
    • 0
    все равно большое спасибо))))

    • Отвечал:

      brutuspalmer
    • 0
    огромное спасибо)))

    • Отвечал:

      gordon9bwt
    • 0

    Var

    A:array[1..n]of integer; укажите нужный размер массива

    P,i:integer;

    Begin

    Readln(p);

    Readln(n);

    For i:=1 to n do

    Read(a[i]);

    For i:=1 to n do

    If a[i]>p then begin

    Writeln(a[i]);

    Break;

    End;

    End.

    • Отвечал:

      laineywoodard
    • 0

    Function func32575497(a As Range, p As Double) As Integer

    Dim r As Range

    Dim i, j As Integer

    For Each r In a

    i = i + 1

    If Fix((1 + Sgn(r - p)) / 2) Then: j = i: Exit For

    Next

    func32575497 = j

    End Function

    Excel VBA

    • Отвечал:

      pablota0t
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска