Индекс находится вне границ массива.

[Kukla19]

uses crt, graphabc;

var
n,dx,dy,nmax,i: integer;
xo, yo: array[1..10] of integer;

procedure vrag_init;
begin
n:=1;
repeat

dx:=random(1,10);
dy:=random(1,10);
for var i:=1 to n do
xo[i]:=50*dx;
yo[i]:=50*dy; // тут ошибка
rectangle(xo[i],yo[i],xo[i]+50,yo[i]+50);

n:=n+1;
nmax:=random(3,6);
until n>nmax;
end;


begin
vrag_init;
end.

Программа выполняется, но в помеченной комментарием строке происходит ошибка. "Индекс находится вне границ массива".

Почему? Диапазон массива 1..10. Ведь индекс в цикле равен одному.

[Black Fregat]

Тут забавное сочетание ошибок
1) Вы забыли взять в операторные скобки тело цикла for. В результате тело цикла состоит из одного оператора, а строчка 16, на которой происходит ошибка, в цикл не попадает
2) Вы объявили переменную цикла прямо в заголовке, используя var i. Но ещё одна переменная i объявлена на уровне программы.

В результате в строчках 15 и 16 используются разные переменные, хоть обе и называются i. Та, что в цикле, изменяется от 1 до N, а вот другая не инициализирована и остаётся равной 0, что и вызывает ошибку

[CMY_3]

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

Почему?

Потому, что переменная i в этой строке глобальная, не инициализированная, поэтому равна 0

[Kukla19]

Всем спасибо большое!

[Serge_Bliznykov]

и не понимаю, зачем в цикле repeat until значение переменной nmax переопределять в каждой итерации. Не разумнее это сделать один раз ДО цикла?

[Kukla19]

Да точно, так и сделал. Это по неопытности делаю такие ошибки. Мне сейчас хоть как сделать - лишь бы работало.