1)найти треть произведения элементов кратных три массива а (4,7) водимого из блока данных 2)матрица а (к,к) формируется датчиком случайных чисел из интервала (10,45). найти пятую часть произведение элементов последней
строки матрицы кратных 5 и сумму положительных элементов главной диагонали. определить разность полученных элементов 3)матрица а (9,9) формируется датчиком случайных чисел из интервала (12,55). найти среднее
арифметическое значение нечетных по значению элементов последнего столбца матрицы и сумму элементов больших 25 главной диагонали матрицы 4)длина матрицы а (5,5) элементы которые формируются датчиком случайных
чисел из интервала(-20,70) найти среднее арифметическое значение нечетных по сравнению элементов побочной диагонали. 5)длина матрицы а (5,5) элементы которые формируются датчиком случайных чисел из интервала(-40-10)
найти среднее арифметическое значение нечетных по сравнению элементов главной диагонали. 6)длина матрицы с (к,к) найти половину сумы элементов побочной диагонали , больших 5 7)длина матрицы с (5,5)найти среднее
арифметическое значение элементов диагоналей матрицы с 8)длина матрицы с (7,7)найти среднее арифметическое значение элементов побочной диагонали и половину суммы элементов главной диагонали матрицей с
Ответы на вопрос:
1)program zadacha1; uses crt; var b,i,j: integer; c,pr: real; a: array [1..4,1..7] of integer; beginclrscr; pr: =1; for i: =1 to 4 dobegin for j: =1 to 7 do begin readln(a[i,j]); end; end; for i: =1 to 4 dobegin for j: =1 to 7 do begin if (a[i,j] mod 3) = 0 then pr: =pr*a[i,j]; end; end; pr: =pr/3; writeln(pr: 2: 3); readkey; end.2)program zadacha2; uses crt; const k=8; var b,i,j,sum: integer; c,pr: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; pr: =1; for i: =1 to k dobegin for j: =1 to k do begin a[i,j]: =random(36)+10; end; end; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; for j: =1 to k do begin if (a[k,j] mod 5) = 0 then pr: =pr*a[i,j]; end; for i: =1 to k dobegin for j: =1 to k do begin if (i=j) and (a[i,j] > 0) then sum: =sum+a[i,j]; end; end; writeln('prozvedenie ',pr: 2: 2); writeln('summa ',sum); writeln('raznostb ',pr-sum: 2: 2); readkey; end.3)program zadacha3; uses crt; const k=9; var b,i,j: integer; sred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do begin a[i,j]: =random(55-12+1)+12; end; end; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; for i: =1 to k dobeginif (a[i,k] mod 2) = 1 then begin l: =l+a[i,k]; b: =b+1; end; end; sred: =l/b; for i: =1 to k dobegin if a[i,i]> 25 then sum: =sum+a[i,i]; end; writeln; writeln('srednee ',sred: 2: 2); writeln('summa ',sum: 2: 1); readkey; end.4)program zadacha4; uses crt; const k=5; var b,i,j: integer; sred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do begin a[i,j]: =random(91)-20; end; end; j: =k; for i: =1 to k dobegin if (a[i,j] mod 2)< > 0 then begin l: =l+a[i,j]; b: =b+1; end; j: =j-1; end; sred: =l/b; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; writeln; writeln('srednee ',sred: 4: 2); readkey; end.5)program zadacha5; uses crt; const k=5; var b,i,j: integer; sred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do begin a[i,j]: =random(31)-40; end; end; j: =k; for i: =1 to k dobegin if (a[i,j] mod 2)< > 0 then begin l: =l+a[i,j]; b: =b+1; end; j: =j-1; end; sred: =l/b; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; writeln; writeln('srednee ',sred: 4: 2); readkey; end.6)program zadacha6; uses crt; const k=6; var b,i,j: integer; sred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do begin a[i,j]: =random(21); end; end; j: =k; for i: =1 to k dobegin if a[i,j]> 5 then begin l: =l+a[i,j]; end; j: =j-1; end; l: =l/2; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; writeln; writeln('sum ',l: 2: 2); readkey; end.7)program zadacha7; uses crt; const k=5; var b,i,j: integer; pred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do a[i,j]: =random(10); end; j: =k; for i: =1 to k dobegin l: =l+a[i,j]; j: =j-1; end; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; for i: =1 to k dobegin sum: =sum+a[i,i]; end; pred: =sum+l; writeln('sum ',pred/10: 2: 2); readkey; end.8)program zadacha8; uses crt; const k=5; var b,i,j: integer; pred,sum,l: real; a: array [1..k,1..k] of integer; beginrandomize; clrscr; for i: =1 to k dobegin for j: =1 to k do a[i,j]: =random(10); end; j: =k; for i: =1 to k dobegin l: =l+a[i,j]; j: =j-1; end; l: =l/k; for i: =1 to k dobegin for j: =1 to k do write(a[i,j],' '); writeln; end; for i: =1 to k dobegin sum: =sum+a[i,i]; end; sum: =sum/2; writeln('sum ',sum: 2: 2); writeln('sred',l: 2: 2); readkey; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
marshmallowcat217.10.2022 08:03
-
LubaIvanova16015.04.2020 12:30
-
Евангелина1234513.05.2020 03:52
-
zufa1127.08.2021 19:47
-
kadochkina06116.02.2023 19:15
-
kosmikanna26.05.2023 08:49
-
dmolodozhnikovp02gx530.03.2021 04:35
-
dashasokolova2119.04.2022 23:53
-
povshedna13.11.2021 09:55
-
belakova28.02.2022 15:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.