65 . разработайте программу в виде матрицы элементы массива b [1..4,1..4] (элементы сгенерировать от -5 до 5). в массиве посчитать: 1) произведение элементов стоящих над главной диагональю 2)сумму элементов под главной диагональю 3)элементы главной диагонали вывести на экран
104
483
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите её версию! begin var b: =matrrandom(4,4,-5,5); b.println(3); var p: =1; var s: =0; write('элементы главной диагонали: '); for var i: =0 to 3 do for var j: =0 to 3 do if i< j then p*=b[i,j] else if i> j then s+=b[i,j] else write(b[i,j]: 3); writeln(newline,'п=',p,', s=',s) end. пример -2 -1 -2 4 0 1 1 -3 0 1 5 5 3 4 3 2 элементы главной диагонали: -2 1 5 2 п=-120, s=11
Var a : array [1..5, 1..5] of integer; i, j : integer; begin randomize; for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random (1000); write (a[i, j], ' '); end; writeln; end; for i : = 1 to 5 do for j : = 1 to 5 do if i > j then a[i, j] : = 1 else if j > i then a[i, j] : = 0; for i : = 1 to 5 do begin for j : = 1 to 5 do write (a[i, j], ' '); writeln; end; end. var a : array [1..4, 1..5] of integer; i, j, m, c : integer; begin randomize; m : = 1000; for i : = 1 to 4 do begin for j : = 1 to 5 do begin a[i, j] : = random (1000); if a[i, j] < m then m : = a[i, j]; write (a[i, j], ' '); end; writeln; end; c : = 0; for i : = 1 to 4 do for j : = 1 to 5 do if a[i, j] = m then c : = c + 1; writeln (m, ' ', c); end. var a : array [1..4, 1..4] of integer; i, j, p : integer; begin randomize; for i : = 1 to 4 do begin for j : = 1 to 4 do begin a[i, j] : = random (10); write (a[i, j], ' '); end; writeln; end; p : = 1; for i : = 1 to 4 do begin if a[i, i] < > 0 then p : = p * a[i, i]; if a[i, 5 - i] < > 0 then p : = p * a[i, 5 - i]; end; writeln (p); end.
шаблонов много, поищи в интернете на свой вкус.
как это в текстовом редакторе? тебе нужна именно программа для создания сайта.
например adobe dreamweaver.
удачи!
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Rednegel06.01.2020 11:12
-
mihailsokolenk14.06.2022 03:15
-
ДимаБум19.06.2021 14:16
-
маша939314.11.2021 22:03
-
7921069654426.02.2023 00:29
-
Натульчик6718.04.2020 20:42
-
ako9154529.10.2022 22:00
-
kotik1234556603.07.2020 22:50
-
п15226.01.2022 13:14
-
несамаяумная06.10.2022 13:31
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.