var pos,neg: integer; i,k,x: integer; ev,un: integer; a,b: array [1..n] of integer;
begin for i := 1 to n do read(a[i]); k := 0; pos := 0; neg := 0; for i := 1 to n do begin ev := 0; un := 0; x := a[i]; if x <> 0 then if x > 0 then if (x < pos) or (pos = 0) then pos := x else else if (x > neg) or (neg = 0) then neg := x; x := abs(x); while x <> 0 do begin if odd(x) then un := un + 1 else ev := ev + 1; x := x div 10 end; if un = ev then begin k := k + 1; b[k] := a[i] end end;
writeln(pos,' ',neg); for i := 1 to k do write(b[i],' ') end.
operand = input('Enter operand ("+" - 1, "-" - 2, "/" - 3, "*" - 4): ')
value_1 = int(input('Enter value 1: '))
value_2 = int(input('Enter value 2: '))
if operand == '1':
result = value_1 + value_2
elif operand == '2':
result = value_1 - value_2
elif operand == '3':
result = value_1 / value_2
elif operand == '4':
result = value_1 * value_2
else:
result = 'Operand not found'
print(f'Result = {result}')
a, b, c = map(int, [input(i) for i in ['a: ', 'b: ', 'c: ']]) # перефразирированный запрос данных
# условия построения треугольника по 3-м сторонам
print(all([a < b + c,
b < a + c,
c < a + b]))