Паскаль Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.
Program chik; var a,b:array[1..10000]of integer; n,i,j,k:integer; begin read(N); for i:=1 to n do read(a[i]); j:=1; b[j]:=1; if(a[1]>=0)then k:=1 else k:=0; for i:=2 to n do begin if((a[i]>=0)and(k=0))or((a[i]<0)and(k=1))then begin k:=(k 1)mod 2; j:=j 1; b[j]:=i; end; end; for i:=1 to j do write(b[i],' '); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
