Переведите с pascal на c++ var l, k, n, i: longint; - вопрос №949363609999 от cherryyy777 04.02.2022 19:08

Question

Информатика: Переведите с 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.

cherryyy777 · Answer

#include iostream int main(){ long L,k,n,i; bool *a=new bool[10000] cin L k; for (int i=0;i k;i++) { std::cin n; a[n]=true; } if (L%2!=0 & a[L/2]) { std::cout L/2; return 1; } for (int i=(L-1)/2;i 0;i--) if (a[i]) { std::cout i ; break; } return 0;}...