1. Дан массив х (n). Переписать в мас сив y

Const n=5; m=3; var x,y: array[1… n] of real; i: integer; t: boolean; beginfor i: =1 to n do read (x[i]); for i: =1 to n do if x[i]>m then y[i]: =x[i]; t: =true; while t do begint: =false; for i: =1 to n-1 do if (y[i] <= m) or (y[i]>y[i+1]) and (y[i+1]>m) then begint: =true; y[i]: =y[i]+y[i+1]; y[i+1]: =y[i]-y[i+1]; y[i]: =y[i]-y[i+1]endend; for i: =1 to n do if y[i]>m then write (y[i],') else break; writeln; for i: =1 to n-1 do beginif y[i] <= m then break; if y[i]=y[i+1] then beginif t=false then begin t: =true; write (i,') end; write (i+1,') endelse t: =falseendend.