Переведите с pascal на c++ var l, k, n, i: longint; a: array [0..9999] of boolean; begin readln (l, k); for i: = 1 to k do begin read (n); a[n]: = true; end; if (l mod 2< > 0 ) and (a[l div 2]) then begin write (l div 2); halt; end; for i: = (l-1) div 2 downto 0 do {цикл от середины влево} if a [i] then begin write (i, ' '); break; end; for i: = (l div 2 ) to l-1 do {цикл от середины вправо} if a [i] then begin write (i, ' '); break; end; end.

вероника03    3   01.10.2019 08:10    0