Не могу найти ошибку! ошибка вида: "ошибка времени выполнения: индекс находился вне границ массива." 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.

Аришка8668   ·   21.09.2019 16:00
Ответов: 1 Показать ответы 9 Обсудить

Другие вопросы по Информатике

.(Втечение часа к финишу пришли 125 человек -это 5/7 всех, кто принял участие в соревновании. остальные финишировали в течение следующих 15 минут. сколько участников соревнований п...
Информатика
28.02.2019 18:00
4 ответ(ов)
Скорость передачи данных через adsl - соединение равна 512000бит/с. передача файла через это соединение заняла 16 секунд. определите размер файла в кбайт....
Информатика
03.03.2019 01:20
3 ответ(ов)
Записать цепочку превращений слов суп-сук-сок-рок-рак , менять можно только по одной букве, местами буквы менять нельзя!...
Информатика
03.03.2019 04:00
4 ответ(ов)
Прочитай шуточные и построй графы.три брата надели три куртки.но они спешили и оделись так странно, что сами развеселились.одному из братьев не досталось куртки,но одна куртка ока...
Информатика
07.03.2019 17:20
3 ответ(ов)
Взаданном массиве к четным элементам прибавить a . а из элементов с четным номером вычесть b....
Информатика
08.03.2019 13:30
2 ответ(ов)
Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). требуется умножить отрицательные значения элементов этого массива на 20. =)...
Информатика
08.03.2019 22:20
2 ответ(ов)
Найдите закономерность 1-1, 2-2, 3-0, 4-1, 20-2, 21-0...
Информатика
08.03.2019 23:40
3 ответ(ов)
Составьте алгоритм, в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев...
Информатика
09.03.2019 05:10
2 ответ(ов)
Написать программу! ) в эвм по очереди поступают результаты соревнований ,в которых участвуют n спортсменов.составьте программу,которая обеспечивает вывод на экран лучшего результа...
Информатика
09.03.2019 15:00
2 ответ(ов)
Вычисли y если y=1-x при x большем или равном 1 и y=x-1 при x меньше 1...
Информатика
09.03.2019 19:50
4 ответ(ов)
Решить ,завтра ** тоже массивом. найти максимальный четный элемент массива и его номер при условии, что все элементы различные. составить программу...
Информатика
10.03.2019 07:40
Надо написать программу на dev c++ с библиотекой graphics.h чтобы появился телефон....
Информатика
03.03.2019 11:43
3 ответ(ов)
Самые популярные сегодня