Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6: 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 решить pascalabc оформить в виде процедуры.
140
279
Ответы на вопрос:
//pascal abc.net 3.1 сборка 1219 const n=6; type ty=array[1..n,1..n] of integer; procedure inic(var ar: ty); var i,j,k: integer; begin k: =0; for i: =1 to n do begin for j: =1 to n do ar[i,j]: =0; if not(odd(i)) then begin k: =k+2; ar[i,k]: =1; end; end; end;
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
rrrrrrrrrrrrrrrrt06.10.2022 22:11
-
visokolova28.11.2021 04:18
-
Мама1мама205.07.2020 14:18
-
masha20001231556313.04.2022 08:32
-
nikskrypkin25.11.2020 21:44
-
miratarnovskaya10.08.2020 02:30
-
Gimngazia04.11.2022 18:17
-
Kinder257115.06.2022 18:05
-
kety0milka10.04.2020 17:12
-
ДавыдоваЮлия567801.02.2020 10:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.