Массив. Отсортировать методом «пузырька» в порядке убывания

25.04.2012, 19:08. **Показов** 2909. **Ответов** 1

Постановка задачи: написать программу, реализующую задание по обработке массива. Количество элементов массива и сами элементы вводить с клавиатуры в диалоговом режиме. Обеспечить вывод на экран результатов в соответствии с заданием: отсортированный массив элементов, номера индексов, вычисленные значения сумм либо среднеарифметические значения.

Вот само задание:
Дан массив натуральных чисел А [1..n]. Отсортировать их методом «пузырька» в порядке убывания. Вычислить среднее арифметическое нечетных чисел. Вывести на экран отсортированный массив и вычисленное значение.

@КонецСвета · 26.04.2012, 00:50

Pascal

uses crt;
const nmax=100;
var a: array [1..nmax] of byte;
    n,i,j,buf,k: byte;
    sum: integer;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln;
for i:=1 to n do
    begin
    a[i]:=random(100)+1;
    if odd(a[i]) then
       begin
       inc(sum,a[i]);
       inc(k);
       end;
    write(a[i]:4);
    end;
j:=0;
while j<=n do
      begin
      for i:=1 to n-1 do
          if a[i]<a[i+1] then
             begin
             buf:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=buf;
             end;
      inc(j);
      end;
writeln;
writeln;
for i:=1 to n do
    write(a[i]:4);
writeln;
writeln('Среднее арифметическое нечетных ',sum/k:0:2);
end.

zver12r
		1
	Массив. Отсортировать методом «пузырька» в порядке убывания 25.04.2012, 19:08. Показов 2909. Ответов 1 Метки нет (Все метки) Постановка задачи: написать программу, реализующую задание по обработке массива. Количество элементов массива и сами элементы вводить с клавиатуры в диалоговом режиме. Обеспечить вывод на экран результатов в соответствии с заданием: отсортированный массив элементов, номера индексов, вычисленные значения сумм либо среднеарифметические значения. Вот само задание: Дан массив натуральных чисел А [1..n]. Отсортировать их методом «пузырька» в порядке убывания. Вычислить среднее арифметическое нечетных чисел. Вывести на экран отсортированный массив и вычисленное значение.

Опции темы

Массив. Отсортировать методом «пузырька» в порядке убывания

Решение