Задать вопрос
31 мая, 06:05

Const n=5;

var

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

b:array[1 ... 10000] of integer;

i, j:integer;

begin

for i:=1 to n do begin

a[i]:=random (100) ;

write (a[i]:4) ;

end;

for i:=1 to n do begin

if (i mod 2=1) and (i div i=1) and (i div 1=i) then b[j]:=i;

end;

writeln (b[j]) ;

end.

Program1. pas (12) : Ошибка времени выполнения: Индекс находился вне границ массива.

Подскажите в чем ошибка

+5
Ответы (1)
  1. 31 мая, 09:49
    0
    "Ошибка времени выполнения: Индекс находился вне границ массива." В этом и есть ошибка. Какой индекс? Вот этот - j. Что с этим делать? Инициализировать j. Так как вы ничего не присвоили переменной j, то паскаль туда положил ноль. А статический массив b у вас индексируется от 1. Так понятно? Я правда, не совсем понимаю, что должна делать ваша программа, но это и не суть важно. Хотя можете объяснить что вы там ищете и что хотите вывести.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Const n=5; var a:array[1 ... n] of integer; b:array[1 ... 10000] of integer; i, j:integer; begin for i:=1 to n do begin a[i]:=random (100) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы