Cортировка простым обменом

@Merzavec · Регистрация: 23.12.2009

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

ребят подскажите в чем дело почему вылетает ошибка деление на ноль

Pascal

Program obmen;
Uses Crt; 
Const n=20; 
Type Arr=Array[1..n] of Integer; 
VAR a: Arr; 
x, i, j: Integer; 
k : Boolean; 
Begin
Clrscr; 
Randomize; 
For i:=1 to n do 
Begin 
a[i]:=Random(1000); 
Write(a[i]:4) 
End; 
i:=0; 
Repeat 
k:=True; i:=i+1; 
For j:=1 to n-1 do 
If a[j]>a[j+1] then 
Begin 
x:=a[j]; 
a[j]:=a[j+1]; 
a[j+1]:=x; 
k:=False End; 
Until (k or (i>=n-1)); 
WriteLn(‘ “);
WriteLn(' n=',n:4); 
WriteLn(' a[i]=');
For i:=1 to n do 
Write(a[i]:4);
End.

Добавлено через 10 минут
подскажите плиииз

@ray_gud · 23.12.2009, 18:21

У меня все работает. Только кавычку поставил одинарную в 27 строке.

@Merzavec · 23.12.2009, 19:00 **[ТС]**

все равно пишет ошибка деление на ноль

@ray_gud · 23.12.2009, 19:15

так у тебя вообще деления здесь нет. а что должна выполнять программа? помоему она неправильный ответ выдает.
И что именно пишет про ошибку?

@Merzavec · 23.12.2009, 20:29 **[ТС]**

Сообщение от ray_gud

так у тебя вообще деления здесь нет. а что должна выполнять программа? помоему она неправильный ответ выдает.
И что именно пишет про ошибку?

Алгоритм сортировки простым обменом на примере одномерного массива

@TAVulator · 23.12.2009, 20:43

ray_gud, в какой строке выдает ошибку?

@ray_gud 4 / 4 / 4 Регистрация: 18.12.2009 Сообщений: 14
	23.12.2009, 18:21	2
	У меня все работает. Только кавычку поставил одинарную в 27 строке. 0

@Merzavec 0 / 0 / 0 Регистрация: 23.12.2009 Сообщений: 3
	23.12.2009, 19:00 [ТС]	3
	все равно пишет ошибка деление на ноль 0

@ray_gud 4 / 4 / 4 Регистрация: 18.12.2009 Сообщений: 14
	23.12.2009, 19:15	4
	так у тебя вообще деления здесь нет. а что должна выполнять программа? помоему она неправильный ответ выдает. И что именно пишет про ошибку? 0

@Merzavec 0 / 0 / 0 Регистрация: 23.12.2009 Сообщений: 3
	23.12.2009, 20:29 [ТС]	5
	Сообщение от ray_gud так у тебя вообще деления здесь нет. а что должна выполнять программа? помоему она неправильный ответ выдает. И что именно пишет про ошибку? Алгоритм сортировки простым обменом на примере одномерного массива 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	23.12.2009, 20:43	6
	ray_gud, в какой строке выдает ошибку? 0