Паскаль Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.
Ответы:
30-06-2016 23:27
program chik;var a,b:array[1..10000]of integer;n,i,j,k:integer;beginread(N);for i:=1 to n doread(a[i]);j:=1;b[j]:=1;if(a[1]>=0)then k:=1 else k:=0;for i:=2 to n dobeginif((a[i]>=0)and(k=0))or((a[i]<0)and(k=1))then begink:=(k+1)mod 2;j:=j+1;b[j]:=i;end;end;for i:=1 to j dowrite(b[i],);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Паскаль Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.» от пользователя София Кухаренко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!