• Информатика
    Гномья сортировка
    Сделайте пожалуйста
    Даю 30 баллов

Ответы 1

  • uses crt;type mas=array[1..1000] of integer;var a:mas;    n,i:integer;procedure gnomesort(var arr:mas; size : Integer);var i, j, t  : Integer;begini := 2;j := 3;while i <= size do begin  if arr[i-1] <= arr[i] then   begin    i := j;   j := j + 1   end  else   begin    t := arr[i-1];    arr[i-1] := arr[i];    arr[i] := t;    i := i - 1;  if i = 1 then   begin    i := j;   j := j + 1   end  end end;end; begin write('Размер массива n='); read(n); writeln('Исходный массив:'); for i:=1 to n do read(a[i]); writeln; gnomesort(a,n); writeln('Результат сортировки:'); for i:=1 to n do write(a[i],' ');end.
    • Автор:

      desirae
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years