массив, упоряд Опции

[Demm]

Помогите пожалуста!

Я отдельно писал процедуру proverka (проверка массива на упорядоченность по возростанию) вроде работали,в проге не работают. Как переправить?

Код

procedure proverka(i:integer);
    begin
    i:=1;
   repeat
    if a[i]<a[i-1] then
    begin
    clrscr;
    write('Первый массив не упорядочен по возростанию');
        for i:=1 to n do
        write(a[i],' ');
         readln;
             halt;
    end;
    i:=i+1;
    until(i>n);
    end;

Тема исправлена,т.к все остальные баги я выловил.

Сообщение отредактировано: Demm - 5.06.2004 14:26

[zx1024]

А за break мне в институте препод все прогу смотреть не станет (у нас плохо относятся к breakу, goto и еще к нек порцедурам)!

А за exit с halt не ругают?
i := 1 ...
a[i]<a[i-1]

a[i-1] = a[0]
Проверь, массив с 0 или с 1 начинается. Существует ли a[0]?
Если с 0. Цикл проходит до n. Т.е. получается n+1 элемент в массиве?
Хоть бы написал: вылетает с ошибкой или ответ даёт неправильный. Весь код то никто не видит.

Сообщение отредактировано: zx1024 - 5.06.2004 14:38