Язык Python пусть числа a, b, c if (a>=b and a<=c) or (a<=b and a>=c): print a elif (b>=a and b<=c) or (b<=a and b>=c): print b elif (c>=b and c<=a) or (c<=b and c>=a): print c
Var a:array[1..3] of integer; i,max,min,n:integer; begin for i:=1 to 3 do begin readln(a[i]); {задаем 3 числа в массиве} if i=1 then begin min:=a[i]; max:=a[i]; end; {Присваем максимальному и минимальному елементу масива первое значение} if min>a[i] then min:=a[i]; {Находим минимальный елемент среди 3} if max<a[i] then max:=a[i]; {Находим максимальный елемент среди3} end; for i:=1 to 3 do if (a[i]<>max) and (a[i]<>min) then n:=a[i]; {Нахождение елемента между максимальным и минмальным} writeln(n); {Вывод} end.
пусть числа a, b, c
if (a>=b and a<=c) or (a<=b and a>=c): print a
elif (b>=a and b<=c) or (b<=a and b>=c): print b
elif (c>=b and c<=a) or (c<=b and c>=a): print c
и второй вариант
print sorted([a,b,c])[1]
i,max,min,n:integer;
begin
for i:=1 to 3 do
begin
readln(a[i]); {задаем 3 числа в массиве}
if i=1 then begin min:=a[i]; max:=a[i]; end; {Присваем максимальному и минимальному елементу масива первое значение}
if min>a[i] then min:=a[i]; {Находим минимальный елемент среди 3}
if max<a[i] then max:=a[i]; {Находим максимальный елемент среди3}
end;
for i:=1 to 3 do
if (a[i]<>max) and (a[i]<>min) then n:=a[i]; {Нахождение елемента между максимальным и минмальным}
writeln(n); {Вывод}
end.