Question

Вмассиве с={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).

Answer 1

Var
c:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
i,k1,k2:integer;
begin
k1:=0; k2:=0;
for i:=1 to 9 do
 begin
 if (c[i]>0)and(c[i+1]>0) then k1:=k1+1;
 if (c[i]<0)and(c[i+1]<0) then k2:=k2+1;
 end;
writeln('k1 = ',k1,' k2 = ',k2);
end.

Результат:
k1 = 2 k2 = 2