Помогите найти ошибку: program zad6; var a:array [1..10] of integer; i,n,b:integer;...

Question

Помогите найти ошибку:


program zad6;
var a:array [1..10] of integer;
i,n,b:integer;
begin
read(n);
if (n<=10) then<br> begin
for i:=1 to n do
b:=random(n)+0;
Writeln(a[b]);
end;

end.

Answer 1

Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;

Comments

Спасибо

---

массив a{b}, где b может быть только от 1 до 10, если будет равен 0 то программа сломается