Вопрос по информатике:
1. Дан массив х (n) . Переписать в массив y(n) элементы массива х, большие 3. Затем
упорядочить методом «пузырька» по возрастанию
новый массив. Выдать на экран номера одинаковых элементов в
упорядоченном массиве.
- 17.08.2018 19:12
- Информатика
- remove_red_eye 17734
- thumb_up 22
Ответы и объяснения 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]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.
- 18.08.2018 20:02
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.