Дана действительная матрица размера m×n. получить одномерный массив, элементы которого равны количеством неотрицательных элементов в столбцах. вывести элементы полученного массива на экран и в типизированный дисковой файл f1. вычислить среднее арифмитическое значение элементов файла f1. вывести в файл f2 те элементы файла f1, которые не превышают найденного среднего. использовать при решении подпрограммы.
290
340
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var (m,n): =readinteger2('количество строк и столбцов в матрице: '); var a: =matrgen(m,n,(i,j)-> (random(9000)-4500)/100); writeln('*** исходная матрица ***'); a.println(7,2); writeln(7*a.colcount*'-'); var b: =a.cols.select(c-> c.where(t-> t> =0).count).toarray; if b.length=0 then begin writeln('в матрице все элементы отрицательные'); exit end; b.println; var f1: file of integer; assign(f1,'f1.bin'); rewrite(f1); foreach var t in b do write(f1,t); reset(f1); var (s,k): =(0,0); var v: integer; while not eof(f1) do begin read(f1,v); s+=v; k+=1 end; f1.close; var avg: =s/k; var f2: file of real; assign(f2,'f2.bin'); rewrite(f2); var q: =a.elementsbyrow.where(t-> t< =avg); q.println; foreach var c in q do write(f2,c); f2.close end. пример количество строк и столбцов в матрице: 4 9 *** исходная матрица *** -27.55 14.63 25.01 35.00 34.53 -24.49 -43.20 35.73 35.05 -9.96 -40.27 6.45 43.42 4.31 21.48 17.16 40.35 -3.58 -28.37 -11.17 32.04 26.07 -29.32 -24.20 -7.75 41.32 9.54 34.89 37.10 -26.09 22.64 16.69 -28.75 19.16 22.66 7.52 1 2 3 4 3 1 2 4 3 -27.55 -24.49 -43.2 -9.96 -40.27 -3.58 -28.37 -11.17 -29.32 -24.2 -7.75 -26.09 -28.75
Всего 300 квартир из 300 квартир- 9 квартир однозначные 91 квартира двухзначная и 299 квартир двух значных, тогда 299+91+ 9= 399 ответ: 399 цифр на дверях
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ассасин3203.01.2023 09:40
-
kghjg15.10.2021 09:24
-
sanya334410.11.2020 07:36
-
alexanders423426.06.2020 07:12
-
mihailgrand29.09.2020 02:18
-
9978621.08.2020 19:32
-
Karinka1Malvinka23.02.2020 21:25
-
elisbuh23.12.2020 17:01
-
Kirillsharko25.02.2022 06:28
-
Кыкук20.07.2020 19:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.