Сортировка элементов числового массива по не убыванию пузырьковым методом

@Marischa · Регистрация: 29.06.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста составить несколько задач с массивами (программа + блок схема если это возможно)))
Наполнение массива случайными числами + число элементов массива N=10

№1 Сортировка элементов числового массива по не убыванию пузырьковым методом

Спасибо!!!

@sobakabobik · 29.06.2013, 17:04

#1

Pascal

uses
 сrt;
 
Type
  Tmas = array [1 .. 10] of byte;
 
procedure Swap(var a, b: byte);
var
  t: longint;
begin
  t := a;
  a := b;
  b := t;
end;
 
Procedure Bubble(var m: Tmas; n: byte);
var
  i, j: byte;
begin
  for i := 1 to n - 1 do
    for j := 1 to n - 1 do
      if M[j] > M[j + 1] then
        Swap(M[j], M[j + 1]);
end;
 
  var
    M: Tmas;
    i: byte;
 
  begin
  writeln('Исходный массив:');
    randomize;
    for i := 1 to 10 do
    begin
      M[i] := random(8) + 1;
      write(M[i], ' ');
    end;
    bubble(m, 10);
    writeln;
    writeln('Отсортированный массив:');
    for i := 1 to 10 do
      write(m[i], ' ');
 
     readln
end.

@Marischa 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 5
		1
	Сортировка элементов числового массива по не убыванию пузырьковым методом 29.06.2013, 16:38. Показов 2012. Ответов 1 Метки пузырьковая сортировка, пузырьковая сортировка pascal, сортировка, сортировка массива, сортировка массива pascal, сортировка методом пузырька, сортировка методом пузырька pascal, сортировка по неубыванию, сортировка по неубыванию pascal, сортировка пузырьком, сортировка пузырьком pascal, упорядочить массив, упорядочить массив pascal, упорядочить по невозрастанию pascal, упорядочить по невозрастанию (Все метки) Помогите пожалуйста составить несколько задач с массивами (программа + блок схема если это возможно))) Наполнение массива случайными числами + число элементов массива N=10 №1 Сортировка элементов числового массива по не убыванию пузырьковым методом Спасибо!!! 0

	29.06.2013, 17:04

Сортировка элементов числового массива по не убыванию пузырьковым методом

Решение