Дан

массив b (n). Переписать в массив C (n)

отрицательные элементы массива b (n)

умноженные на 4. Затем упорядочить методом "пузырька" по

возрастанию новый массив. Найти общее

количество одинаковых элементов в упорядоченном массиве.

Const n=5; m=4;

var b, c:array[1 ... n] of real; k, i:integer; t:boolean;

begin

for i:=1 to n do read (b[i]) ;

for i:=1 to n do if b[i]<0 then c[i]:=b[i]*m;

t:=true;

while t do begin

t:=false;

for i:=1 to n-1 do if c[i]>c[i+1] then begin

t:=true;

c[i]:=c[i]+c[i+1]; c[i+1]:=c[i]-c[i+1]; c[i]:=c[i]-c[i+1]

end

end;

for i:=1 to n do if c[i]<0 then write (c[i],' ') else break;

writeln;

k:=0;

for i:=1 to n-1 do begin

if c[i]=0 then break;

if c[i]=c[i+1] then begin

if t=false then begin t:=true; k:=k+1 end;

k:=k+1; end

else t:=false

end;

write (k)

end.