Дан массив b (n) . Переписать в массив C(n) отрицательные элементы массива b(n) умноженные на 4. Затем упорядочить методом «п
<span>Дан массив b (n) . Переписать в массив C(n) отрицательные элементы массива b(n) умноженные на 4. Затем упорядочить методом «пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве.</span>
Program gt; var b,c:array[1..1000]of integer; k,n,i,j,r,w:integer; begin read(n); k:=0; w:=0; for i:=1 to n do begin read(b[i]); if(b[i]<0)then begin k:=k+1; c[k]:=b[i]*4; end; end; for i:=1 to k do begin for j:=1 to k-i do begin r:=c[j]; if(c[j]>c[j+1])then begin c[j]:=c[j+1]; c[j+1]:=r; end; end; end; w:=1; for i:=1 to k do begin write(c[i],' '); end; writeln; for i:=2 to k do if(c[i]<>c[i-1])then w:=w+1; writeln(W); <span>end.</span>