Данмассив b (n). Переписать в массив C (n) отрицательные элементы массива b (n)…

Const n=5; m=4; var b,c: array[1… n] of real; k,i: integer; t: boolean; beginfor 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 begint: =false; for i: =1 to n-1 do if c[i]>c[i+1] then begint: =true; c[i]: =c[i]+c[i+1]; c[i+1]: =c[i]-c[i+1]; c[i]: =c[i]-c[i+1]endend; 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 beginif c[i]=0 then break; if c[i]=c[i+1] then beginif t=false then begin t: =true; k: =k+1 end; k: =k+1; endelse t: =falseend; write (k) end.