gerafsfd
Опубликовано 3 года назад по предмету Информатика от gerafsfd


Помогите пожалуйста, не могу найти ошибку! Ошибка вида: "Ошибка времени выполнения: Индекс находился вне границ массива." const n=5; var a,b:array[1..n] of integer; i,j:byte; begin for i:=1 to n do begin write('Введите ',i,'-ый(ой) эелемент массива = '); readln(a[i]); end; writeln; writeln(' Массив "А"'); for i:=1 to n do write(' |',a[i],'|'); writeln; j:=0; for i := 1 to n do begin if (b[j]>0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then begin inc(j); b[j] := a[i]; end; end; writeln; writeln(' Массив "B"'); for i := 1 to j do write(' |',a[i],'|'); writeln; end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос