Question

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

Answer 1

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.

Answer 2

????

Answer 3

Извините но нет((

Answer 4

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

Answer 5

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

Answer 6

все равно большое спасибо))))

Answer 7

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

Answer 8

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