Информатика

Виктора

31 марта, 06:19

Ошибка времени выполнения: Индекс находился вне границ массива ... чтто не так?

const n=30;

var i, j, p, q:integer;

c:array[1 ... n, 1 ... n+1] of integer;

a:array[1 ... n+1] of integer;

b:array[1 ... n+1] of integer;

begin

readln (q, p) ;

For i:=1 to n do

For j:=1 to n+1 do

c[i, j]:=random (28) + 1;

begin

for i:=1 to n+1 do

p:=random (28) + 1;

end;

for j:=1 to n+1 do

begin

q:=random (28) + 1;

end;

for i:=n downto p do / / вставка p

for j:=1 to n+1 do//

c[i+1, j]:=c[i, j]; //

for j:=1 to n+1 do c[p, j]:=a[i];

for j:=n+1 downto q do

for i:=1 to N+1 do

c[i, j+1]:=c[i, j];

for i:=1 to n+1 do c[i, q]:=b[i];

for i:=1 to n+1 do begin

for j:=1 to n+1 do

write (c[i, j]:2) ;

writeln; //

end;

end.