Дана матрица а[1: 4; 1: 4] а) получить сумму и количество четных элементов в интервале [-10 +5]. б) сформировать вектор из сумм элементов матрицы по столбцам в) получить среднеарифметическое значение положительных элементов матрицы. г) получить произведение и сумму элементов в третьем столбце.
289
449
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin writeln('*** исходная матрица ***'); var a: =matrrandom(4,4,-99,99); a.println(4); writeln(4*a.colcount*'-'); var s: =a.elementsbyrow.where(t-> t.between(-10,5) and t.iseven); writeln('на интервале [-10; 5] четных элементов ',s.count, ', их сумма равна ',s.sum); var vc: =a.cols.select(t-> t.sum); write('вектор сумм по столбцам: '); vc.println; writeln('среднее арифметическое положительных равно: ', a.elementsbyrow.where(t-> t> 0).average); writeln('в третьем столбце сумма элементов равна ', a.col(2).sum,', произведение равно ', a.col(2).aggregate(1,(p,q)-> p*q)) end. пример *** исходная матрица *** 27 -87 73 -6 48 -50 75 -32 4 92 -84 85 27 4 31 -63 на интервале [-10; 5] четных элементов 3, их сумма равна 2 вектор сумм по столбцам: 106 -41 95 -16 среднее арифметическое положительных равно: 46.6 в третьем столбце сумма элементов равна 95, произведение равно -14256900
Var a: array [1..4, 1..4] of integer; b: array [1..4] of integer; i, j, count, countar: byte; arithmean: real; sum, mult, sumthird: integer; begin mult : = 1; randomize; writeln(' *** исходный массив ***'); for i : = 1 to 4 do begin for j : = 1 to 4 do begin //случайные значение в диапазоне [-30; 30] a[i, j] : = random(61)-30; //сумма и количество четных в диапазоне [-10..5] if (a[i, j] mod 2 = 0) and ((a[i, j] > = -10) and (a[i, j] < = 5)) then begin sum : = sum + a[i, j]; count : = count + 1; end; //количество и сумма положительных для среднего арифметического if a[i, j] > 0 then begin countar : = countar + 1; arithmean : = arithmean + a[i, j]; end; //произведение и сумма 3-его столбца if j = 3 then begin mult : = mult * a[i, j]; sumthird : = sumthird + a[i, j]; end; write(a[i, j]: 5); end; writeln; end; writeln('количество четных [-10..5] = ', count); writeln('сумма четных [-10..5] = ', sum); writeln('среднее арифметическое = ', (arithmean/countar): 0: 2); writeln('произведение в 3 столбце = ', mult); writeln('сумма в 3 столбце = ', sumthird); //получение вектора for j : = 1 to 4 do begin sum : = 0; for i : = 1 to 4 do sum : = sum + a[i, j]; b[j] : = sum; end; writeln('вектор: '); for i : = 1 to 4 do writeln(b[i]: 5); end.
Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь 1. открываешь глоза 2.встаешь 3.одеваешь тапочки 4.встоешь с кровати 5.запровляешь кровать 6.идёшь в вану 7.принимаешь душ 8.чистиш зубы 9.вытираешься 10.одеваешься 11.идеш на кухню 12.береш чайник 13.идёшь к воде 14.включаешь воду 15.подстовляешь чайник 16.ждешь пока набирается вода 17.выключаешь воду 18.идеш к плите 19. ставишь чайник 20.зажигаешь спичку 21.включаешь газ 22.подносишь спичку 23.ждешь воду и т.д )
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Скрррррооо10.11.2022 02:25
-
efr4724.06.2021 10:08
-
marianna12312330.07.2021 19:33
-
jova20011p0bpf925.03.2022 21:59
-
БразилицУченик15.03.2021 19:43
-
Nezox17518.04.2020 03:44
-
машуня8923.10.2021 12:40
-
fedivvasil1910.04.2021 08:17
-
VERONIKA7549876878304.09.2022 05:48
-
Makson3D20.11.2020 03:20
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.