Процедура сортировки одномерного массива. Ошибка в инструкции на операторе IF . else

@saroff · Регистрация: 09.11.2013

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

Есть процедура, которая должна сортировать одномерные массив по возрастанию модулей элементов.

Pascal

procedure sort (var m1:mas;n1:integer);
var
p:real;
x:integer;
begin
x:=1;
for i:=2 to n1 do
if (abs(m1[i])) < (abs(m1[i-1])) then
begin
p:=m1[i];
m1[i]:=m1[i-1];
m1[i-1]:=p;
end;
else x:=x+1;
if x<>n1 then sort (m1,n1);
end;

Выдает ошибку "Ошибка 113: Ошибка в инструкции" на строке "else x:=x+1;"

@j7777777 · 21.11.2013, 18:36

перед else ; не ставится

@j7777777 81 / 79 / 57 Регистрация: 21.11.2013 Сообщений: 173
	21.11.2013, 18:36	2
	перед else ; не ставится 0