Вмассиве размером 5 на 5 подсчитать сумму положитеных элементов стоящих на главной диагонали и ниже ее

248

264

Посмотреть ответы 2

Ответы на вопрос:

Frosterion

Информатика

4,7(86 оценок)

Const k=5; type massiv = array [1..k,1..k] of integer; var mass: massiv; summa,i,j: integer; begin randomize; summa: =0; for i: =1 to k do for j: =1 to k do mass[i,j]: =random(10); for i: =1 to k do begin for j: =1 to k do begin write (mass[i,j], ' || '); end; writeln; end; for i: =1 to k do for j: =1 to k do if (i=j) then summa: =summa+mass[i][j]; writeln; writeln ('сумма главной диагонали равна ', summa); end. примечание: так как у меня отсутствует модуль crt то вывести в графическую дос оболочку я вам программу не могу но если сильно хочется то в начале добавляете uses crt, а после первого begin добавляете clrscr uses crt; {только при начилии соединения с модулем crt запуск обычно по shift+f9} const k=5; {зарезервировал постоянное число} type massiv = array [1..k,1..k] of integer; {задал массив} var mass: massiv; summa,i,j: integer; begin clrscr; {очистка экрана} randomize; summa: =0; for i: =1 to k do {запустил цикл, одномерный массив} for j: =1 to k do mass[i,j]: =random(10); {числа не больше 10} for i: =1 to k do begin {запускаю цикл} for j: =1 to k do begin write (mass[i,j], ' || '); end; writeln; end; for i: =1 to k do {вывел квадратичную матрицу, 2-мерный массив} for j: =1 to k do if (i=j) then {, работаю по главной диагонали} summa: =summa+mass[i][j]; {суммирую} writeln; writeln ('сумма главной диагонали равна ', summa); {вывожу} end.

lenalorax9093

Информатика

4,5(84 оценок)

а:= 3

b:= 5

а:= 6 + а * b = 6 + 3 * 5 = 6 + 15 = 21

b:= b + а/3 = 5 + 21 / 3 = 5 + 7 = 12

ответ: 12.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.