Medved » 31 мар 2008, 17:03
Можно так:
[syntax='Pascal']
Program SearchMiddle;
Type Arr=Array[0..4] Of Integer;
Var A:Arr;
Begin
Writeln('Enter A,B,C:');
Readln(A[1],A[2],A[3]);
I:=1;K:=False;
A[0]:=A[3];A[4]:=A[1];
While Not K Do
Begin
K:=(A<=A[ i +1])And(A>=A[I-1])or(A>=A[ i +1])And(A<=A[I-1]);
Inc(I);
End;
Writeln(A[i-1]);
End.
[/syntax]
Лёгкий, не правда ли? И без ИФОВ.
Можно так:
[syntax='Pascal']
Program SearchMiddle;
Type Arr=Array[0..4] Of Integer;
Var A:Arr;
Begin
Writeln('Enter A,B,C:');
Readln(A[1],A[2],A[3]);
I:=1;K:=False;
A[0]:=A[3];A[4]:=A[1];
While Not K Do
Begin
K:=(A[i]<=A[ i +1])And(A[i]>=A[I-1])or(A[i]>=A[ i +1])And(A[i]<=A[I-1]);
Inc(I);
End;
Writeln(A[i-1]);
End.
[/syntax]
Лёгкий, не правда ли? И без ИФОВ.