Отсортировать массив по убыванию методом вставки

@dastreba · Регистрация: 18.10.2017

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

Короче т.к с установкой делфи на ноут траблы,то пришлось писать в текстовике,прошу проверить на наличие ошибок.
Надо отсортировать масив по убыванию методом вставки.

Delphi

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const n=5;
var Mas:array[1..n] of integer;
i,j,Rez:integer;
Begin
For i:=2 to n do
Begin
j:=i;
while (j<1) and (Mas[j]>Mas[j+1]) do
Begin
Rez:=Mas[j];
Mas[j]:=Mas[j+1];
Mas[j+1]:=Rez;
j:=j+1;
End;
End;
End.

@Massaraksh7 · 17.12.2017, 08:39

По крайней мере, выход за пределы массива детектед.
Mas[j+1] при j=n
И Mas[1] не участвует совсем.
И условие j<1 бессмысленное.

@Massaraksh7 Айлурофил 475 / 409 / 109 Регистрация: 27.05.2017 Сообщений: 2,349 Записей в блоге: 1
	17.12.2017, 08:39	2
	По крайней мере, выход за пределы массива детектед. Mas[j+1] при j=n И Mas[1] не участвует совсем. И условие j<1 бессмысленное. 0