Вопрос по информатике:
Дан
массив b (n) . Переписать в массив C(n)
отрицательные элементы массива b(n)
умноженные на 4. Затем упорядочить методом «пузырька» по
возрастанию новый массив. Найти общее
количество одинаковых элементов в упорядоченном массиве.
- 03.06.2018 18:36
- Информатика
- remove_red_eye 6447
- thumb_up 44
Ответы и объяснения 1
Const n=5; m=4;
var b,c:array[1..n] of real; k,i:integer; t:boolean;
begin
for 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 begin
t:=false;
for i:=1 to n-1 do if c[i]>c[i+1] then begin
t:=true;
c[i]:=c[i]+c[i+1]; c[i+1]:=c[i]-c[i+1]; c[i]:=c[i]-c[i+1]
end
end;
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 begin
if c[i]=0 then break;
if c[i]=c[i+1] then begin
if t=false then begin t:=true; k:=k+1 end;
k:=k+1; end
else t:=false
end;
write(k)
end.
- 04.06.2018 00:00
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.