1.вывести на экран главную и побочную диагональ квадратной матицы. 2 вычислить количество четных элементов квадратной матрицы, расположенных по ее периметру.
190
242
Ответы на вопрос:
Const mm = 20; var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer; begin write('введите число строк (столбцов) матрицы: '); readln(m); randomize; writeln(#13#10, 'исходная матрица'); for i : = 1 to m do begin for j : = 1 to m do begin a[i, j] : = random(99) + 1; { числа 1..99 } write(a[i, j]: 3) end; writeln end; writeln('*** главная диагональ ***'); for i : = 1 to m do write(a[i, i]: 3); writeln; writeln('*** побочная диагональ ***'); for i : = 1 to m do write(a[i, m - i + 1]: 3); writeln; write('сумма четных элементов по периметру равна '); s : = 0; for j : = 1 to m do if a[1, j] mod 2 = 0 then s : = s + a[1, j]; for j : = 1 to m do if a[m, j] mod 2 = 0 then s : = s + a[m, j]; for i : = 2 to m-1 do if a[i, 1] mod 2 = 0 then s : = s + a[i, 1]; for i : = 2 to m-1 do if a[i, m] mod 2 = 0 then s : = s + a[i, m]; writeln(s) end. тестовое решение: введите число строк (столбцов) матрицы: 10 исходная матрица 12 81 22 55 45 97 37 95 33 84 4 40 77 85 20 15 40 41 64 16 17 72 42 32 85 94 7 39 65 46 22 23 58 69 53 40 65 49 70 20 90 62 26 60 53 13 19 2 21 31 50 55 8 29 26 39 40 89 70 51 91 98 31 86 62 80 81 9 32 79 49 90 71 44 26 55 46 81 79 73 75 5 18 34 96 67 16 29 43 15 1 76 78 19 28 91 31 39 98 73 *** главная диагональ *** 12 40 42 69 53 39 81 81 43 73 *** побочная диагональ *** 84 64 39 65 13 26 86 71 5 1 сумма четных элементов по периметру равна 646
паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. иначе я не знаю.
первый поезд делится на (паровоз+10) и 11 вагонов.
и эту десятку паровоз тянет в тупичек.
второй поезд проезжает тупичек.
паровоз первого вытягивает свою десятку на свободный путь
второй паровоз толкает свой состав так чтоб стать перед тупичком
второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.
второй паровоз задом запихивает 11 вагонов в тупичек
второй паровоз берет свой состав и уезжает
первый паровоз забирает свои 11 вагонов
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
cnastya97015.06.2023 22:17
-
neznalomka30.11.2022 08:57
-
markiza66629.03.2022 03:44
-
Polinka8030.05.2020 06:11
-
miloft07.05.2021 23:24
-
NEASA27.03.2021 02:23
-
mafa09130.09.2020 21:31
-
Серый43а15.01.2023 01:08
-
579w2g319.03.2022 00:19
-
860318400529113.01.2020 14:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.