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

program zad6;

var a:array [1 ... 10] of integer;

i, n, b:integer;

begin

read (n) ;

if (n<=10) then

begin

for i:=1 to n do

b:=random (n) + 0;

Writeln (a[b]) ;

end;

end.

Question

Информатика

Селивёрст

26 августа, 08:59

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

program zad6;

var a:array [1 ... 10] of integer;

i, n, b:integer;

begin

read (n) ;

if (n<=10) then

begin

for i:=1 to n do

b:=random (n) + 0;

Writeln (a[b]) ;

end;

end.

+3

Ответы (1)

Знаете ответ?

Степанка · Answer 1

Если b будет равен нулю, то программа выйдет за границы массива

и после цикла for нужно ставить do begin т. к выполняется два оператора

b:=random (n) + 0;

Writeln (a[b]) ;

после них добавить ещё end;

Помогите найти ошибку:program zad6;var a:array [1 ... 10] of integer;i, n, b:integer;beginread (n) ;if (n<=10) thenbeginfor i:=1 to n dob:=random (n) + 0;Writeln (a[b]) ;end;end.

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

program zad6;

var a:array [1 ... 10] of integer;

i, n, b:integer;

begin

read (n) ;

if (n<=10) then

begin

for i:=1 to n do

b:=random (n) + 0;

Writeln (a[b]) ;

end;

end.