Сортировка массивов пузырьковым методом

@qwe · Регистрация: 30.10.2009

Помогите с Решением Задачу пузырьковым методом

Дан одномерный массив чисел. Определите сумму элементов, больших данного числа А (А вводить с клавиатуры). Массив отсортировать по возрастанию

@Тамила · 04.02.2010, 14:32

Pascal

uses crt;
var
m:array[1..100]of integer;
i,n,j,temp,sum,a:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('m[',i,']=');
  read(m[i]);
 end;
writeln;
write('A=');
read(a);
writeln('ishodnyi massiv:');
for i:=1 to n do
write(m[i],'  ');
sum:=0;
for i:=1 to n do
if m[i]>a then sum:=sum+m[i];
writeln;
writeln('summa=',sum);
writeln('otsortirovannyi massiv:');
for i:=1 to n do
for j:=1 to n-1 do
if m[j]>m[j+1] then
 begin
  temp:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=temp;
 end;
for i:=1 to n do
write(m[i],'  ');
readkey;
end.

@Inadequate · 04.02.2010, 16:23

Надо писать при сортировке так

Pascal

1
2
3

for i:=1 to N-1 do
  for j:=i+1 to N do
  ...

@qwe 0 / 0 / 1 Регистрация: 30.10.2009 Сообщений: 19
		1
	Сортировка массивов пузырьковым методом 04.02.2010, 14:08. Показов 1194. Ответов 2 Метки нет (Все метки) Помогите с Решением Задачу пузырьковым методом Дан одномерный массив чисел. Определите сумму элементов, больших данного числа А (А вводить с клавиатуры). Массив отсортировать по возрастанию __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы