Вмассиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива,проверьте программу , что неправильно ? var c: array[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3); i: =i+1; i,n,t,k: integer; begin function controll (c: array): boolean; var i: integer; if ((c[i]> 0) and (c[i+1]> 0)) or ((c[i]< 0)and (c[i+1]< 0)) then k: =k+1; end. close (f); repeat write('c: '); readln(c); until (c> 0)and(c< =10); writeln('введите ',c,' элементов'); for i: =1 to 10 do i: =i+1; read(c[i]); for i: =1 to 10 do i: =i+1; write('c: '); readln(c); repeat write('c: '); readln(c); until (c< -3)and(c< =2); writeln('введите ',c,' элементов'); c: boolear; writeln('c'); end. //основная программа close file (f).