Задание:
1. Дан массив х (n). Переписать в мас сив y (n) элементы массива х, большие 3. Затем упорядочить методом «пузырька» по возрастанию но вый массив. Выдать на экран номера одинаковых элементов в упорядоченном массиве.
Решение:
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.
Знаете другой ответ?