Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Суббота, 18.05.2024
Главная » 2011 » Октябрь » 11 » Метод "Пузырька" Pascal
21:29
Метод "Пузырька" Pascal
  1. begin
  2.    for j:=1 to N-1 do
  3.      for i:=1 to N-j do
  4.         if M[i] > M[i+1] then
  5.         begin
  6.             t := M[i];
  7.             M[i] := M[i+1];
  8.             M[i+1] := t
  9.         end
  10. end;
Категория: Простые примеры | Просмотров: 875 | Добавил: is | Теги: Метод Пузырька Pascal | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: