1. дан массив х (n) . переписать в массив y(n) элементы массива х, большие 3. затем упорядочить методом «пузырька» по возрастанию новый массив. выдать на экран номера одинаковых элементов в массиве.

239

361

Посмотреть ответы 2

Ответы на вопрос:

АсияТулемисовна

Информатика

4,6(1 оценок)

Const n=5; m=3; var x,y: array[1..n] of real; i: integer; t: boolean; begin for 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 begin t: =false; for i: =1 to n-1 do if ((y[i]< =m) or (y[i]> y[i+1])) and (y[i+1]> m) then begin t: =true; y[i]: =y[i]+y[i+1]; y[i+1]: =y[i]-y[i+1]; y[i]: =y[i]-y[i+1] end end; for i: =1 to n do if y[i]> m then write(y[i],' ') else break; writeln; for i: =1 to n-1 do begin if y[i]< =m then break; if y[i]=y[i+1] then begin if t=false then begin t: =true; write(i,' ') end; write(i+1,' ') end else t: =false end end.

Dobrota2017

Информатика

4,8(84 оценок)

Есть специальная функция для округления с точностью до определённого разряда: она объявлена в модуле math. var res, num : extended; begin //округление до сотых долей: res : = roundto(num, -2); //округление до десятых долей: res : = roundto(num, -1); //округление до единиц: res : = roundto(num, 0); //округление до десятков: res : = roundto(num, 1); //округление до сотен: res : = roundto(num, 2); end; функция simpleroundto() сходна с roundto() – различие лишь в способе округления последнего знака. simpleroundto() округляет последнее число в большую сторону, а roundto() использует так называемое банковское округление, приводя число к ближайшему четному