сортировка

[Patrick]

найдите код ошибку в коде

uses crt;
 const n=50;
 var a:array[1..n] of integer;
 t,y,x,i:integer;
  min:integer;
  b:boolean;
  begin
  for i:=1 to n do begin
  a[i]:=random(50)+1;
write(a[i]:4);
   end;

   {сортировка}
  repeat b:=true;

   for i:=1 to n do
     begin
      if a[i]>a[i+1] then
         begin
         y:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=y;
          b:=false;
         end;
      end;
         until b;
    {выводим отсортированный массив}
    writeln;
    write('Отсортированный массив :');
    for i:=1 to n do
    write(a[i]:4);
     end.

[.Phoenix]

Да вроде работает...Чтобы посмотреть результат сортировки просто добавь readln между этих двух строк

write(a[i]:4);
readln;
end.

Должен получится следующий код

const n=50;
var a:array[1..n] of integer;
t,y,x,i:integer;
min:integer;
b:boolean;
begin
for i:=1 to n do begin
a[i]:=random(50)+1;
write(a[i]:4);
end;

{сортировка}
repeat b:=true;

for i:=1 to n do
begin
if a[i]>a[i+1] then
begin
y:=a[i];
a[i]:=a[i+1];
a[i+1]:=y;
b:=false;
end;
end;
until b;
{выводим отсортированный массив}
writeln;
write('Sortirovka :');
for i:=1 to n do
write(a[i]:4);
readln;
end.

[Patrick]

Сообщение от .Phoenix

Да вроде работает...Чтобы посмотреть результат сортировки просто добавь readln между этих двух строк

write(a[i]:4);
readln;
end.

Должен получится следующий код

const n=50;
var a:array[1..n] of integer;
t,y,x,i:integer;
min:integer;
b:boolean;
begin
for i:=1 to n do begin
a[i]:=random(50)+1;
write(a[i]:4);
end;

{сортировка}
repeat b:=true;

for i:=1 to n do
begin
if a[i]>a[i+1] then
begin
y:=a[i];
a[i]:=a[i+1];
a[i+1]:=y;
b:=false;
end;
end;
until b;
{выводим отсортированный массив}
writeln;
write('Sortirovka :');
for i:=1 to n do
write(a[i]:4);
readln;
end.

нее,не работает

[.Phoenix]

Странно...вынужден задать глупый вопрос, ты хоть пишешь полностью типо:

program Z1;
.....

Я щас проверял у меня показывает сортировку...На чем именно компилятор указывает ошибку?

[Serge_Bliznykov]

1) ошибка вот здесь:

    for i := 1 to n do
    begin
      if a[i] > a[i + 1] then

когда i будет равным n какой элемент массива с каким будет сравниваться?
a[n] > a[n+1] ?! выход за пределы массива со всеми вытекающими последствиями ;(
правильно цикл крутить до n-1:

    for i := 1 to n-1 do
    begin
      if a[i] > a[i + 1] then

2) учитесь пользоваться тегом CODE (кнопка #)
так лучше?

const n = 50;
var a: array[1..n] of integer;
  t, y, x, i: integer;
  min: integer;
  b: boolean;
begin
  for i := 1 to n do begin
    a[i] := random(50) + 1;
    write(a[i]: 4);
  end;

  {сортировка}
  repeat b := true;

    for i := 1 to n-1 do
    begin
      if a[i] > a[i + 1] then
      begin
        y := a[i];
        a[i] := a[i + 1];
        a[i + 1] := y;
        b := false;
      end;
    end;
  until b;
  
  {выводим отсортированный массив}
  writeln;
  write('Sortirovka :');
  for i := 1 to n do
    write(a[i]: 4);
  readln;
end.