Var ar:array of integer; n,k,i,j:integer; b1:boolean; begin read(n,k); b1:=false; setlength(ar,n); n:=n-1; writeln('Enter array:'); for i:=0 to n do readln(ar[i]); for i:=0 to n-k+1 do begin; for j:=i to k+i-1 do if ar[i]=ar[j] then b1:=true else b1:=false; if b1=true then break; end; if b1=true then for i:=0 to n do begin; if ar[i]>0 then ar[i]:=ar[i]*(-1); write(ar[i]:4); end else writeln('Рішення не існує'); end.
Пример ввода: 5 //n 4 //k 2 1 1 1 1 Пример вывода: -2 -1 -1 -1 -1
