Ответы на вопрос:
Const n = 3; var a: array[1..n,1..n] of integer; i,j: integer; begin randomize; writeln('исходный массив: '); for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln end; writeln; writeln('переработанный массив: '); for i: = 1 to n do begin for j: = 1 to n do begin if a[i,j]> 0 then a[i,j]: =a[i,j]*a[i,j]; write(a[i,j]: 3,' '); end; writeln end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
33даник74714.02.2021 20:48
-
darina09708.02.2020 19:34
-
arinasuper00006.04.2022 17:43
-
Viki25824.06.2020 21:43
-
Дима2222222222.09.2020 10:03
-
gonelep0bt6w12.04.2020 22:01
-
natusikfire25.09.2021 13:23
-
goshakuzovniko13.10.2021 14:00
-
vikacat1234501.03.2023 08:18
-
олеся79119.03.2022 13:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.