Как на honor 6a включить подавление красных глаз? ​

в настройках самого хонора > доп.функции > эффекты > "красные глаза" > не подавлять (не включать или же включить). готово.

Const n=20; var a: array[1..n] of integer; i,k,m: integer; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(51);   write(a[i]: 3);   end; writeln; k: =0; m: =0; for i: =1 to n-1 do   begin   if a[i+1]> a[i] then begin m: =m+1; end   else begin if m> 0 then k: =k+1; m: =0; end;   end; if m> 0 then k: =k+1; writeln('k = ',k); end. пример: массив a:   7 30 22   0 17   4   2 32 39 26 23 41   1 38 47 21 38 31 43   7 k = 7

Var     c: array[0..9] of byte;     a: longint;     i: byte; begin for i: = 0 to 9 do       c[i]: =0; repeat write('введите натуральное число: '); readln(a); until a> 0; i: =trunc(ln(a)/ln(10)); if frac(ln(a)/ln(10)) > 0 then i: =i+1; for i: = 1 to i do       begin       c[a mod 10]: =c[a mod 10] +1;       a: =a div 10       end; for i: = 0 to 9 do       if c[i]> 1 then a: =1; if a = 1 then     begin     write('повторяются: ');     for i: = 0 to 9 do             if c[i] > 1 then                   write(i,' ')     end end. пример работы программы: введите натуральное число: 131350788 повторяются: 1 3 8