gotherson

а то, то вы исправили - это вылет за границу массива. у меня нумерация с единицы [1..N], а командой "For i:= 0 to count do" вы пытаетесь обратиться к нулевому элементу массива.

Yug7

А если с 1 начинать , а не с 0 - совсем другой алгоритм реализуется
Обязательно надо, чтобы а начиналась с 0, а b начиналась с 1.

Yug7

А как это лучше откорректировать,чем я сделал ?

gotherson

в моём коде они так и начинаются. но если очень хочется, можно поменять нумерацию массива на, например, [0..N-1], тогда будет работать команда "For i:= 0 to count do", но в моём варианте реализации нет разницы.

gotherson

а Вы посмотрели мой исправленный код на предидущей странице? выходной файл Вас не устраивает?

P.S. никак не пойму, как отредактировать сообщение, приходится новое писать...

Yug7

Иду смотреть, честно не заметил. Склероз,не иначе.

Yug7

Смотел, рад до некуда, все отлично. Сейчас набираю еще кое-что. Если не трудно, зайдите еще раз.

gotherson

рад, что смог Вам помочь) простите, куда нужно зайти?

Yug7

gotherson
Интересно : я когда-нибудь научусь вот так же легко,как вы программировать ? Есть вопрос :

1. Приостановка выполнения программы на время, определяемое пользователем
Простейшим решением данной задачи является запись в соответствующем месте процедуры Readln (оператор Read использовать нельзя) или функции ReadKey.
Пример использования процедуры Readln.
PROGRAM DemoReadln;
USES Crt;
BEGIN
ClrScr;
Writeln ('Выполнение программы приостановлено.');
Writeln;
Write ('Для продолжения нажмите клавишу Enter ....');
Readln;
Writeln;
Write ('Выполнение программы продолжается. Ждите 5 секунд. ');
Delay (5000);
END.
Для продолжения выполнения программы достаточно нажать клавишу Enter. Недостатком данного решения является обязательное нажатие клавиши Enter, а не любой клавиши, что увеличивает вероятность ошибочного действия пользователя и в ряде случаев приводит к непредсказуемым результатам.

Если в Вашем коде убрать ограничения по N=1000. А вставить вместо- вышесказанное. Так можно сделать ? И в каком месте Вашего кода лучше сделать вставку ?

Yug7

Или здесь что-то не так ? Я это не сам программировал. Нашел готовое решение. Это будет работать ?
И еще я не совсем понял,как реализуется начало приостановки ? Как ввести с клавиатуры : " Приостановка выполнения программы " ?
Enter - это понятно.