Ошибка времени выполнения: индекс находился вне границ не так? 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.
101
148
Ответы на вопрос:
Обратите внимание на цикл for i: =n downto p do // вставка p for j: =1 to n+1 do c[i+1,j]: =c[i,j]; у вас массив с описан как c: array[1..n,1..n+1] of integer; в то же время, первый индекс у вас в цикле меняется от n+1 до p+1 (n+1 выходит за границу), а второй - от 1 до n+1 (это допустимо)
// pascalabc.net 3.2, сборка 1436 от 01.05.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('введите 9 целых чисел через пробел: ',9); write('четные числа: '); a.where(n-> n.iseven).println end. пример введите 9 целых чисел через пробел: -5 8 0 -12 7 13 26 -40 15 четные числа: 8 0 -12 26 -40
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lailashihaeva22.12.2022 17:44
-
sataevaelsa21.03.2022 12:18
-
kiktev23.09.2020 03:30
-
3Belchonok320.09.2020 07:56
-
38066836868908.04.2020 16:39
-
Milagrosrr28.09.2022 08:20
-
Kira2511201623.07.2021 02:45
-
nyragka05.06.2020 10:30
-
aliyeva0212.02.2022 20:37
-
ademausag16.11.2021 03:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.