Из заданной матрицы а(7х5), элементы которой формируются как массив случайных чисел, сформировать одномерный массив в, состоящий из минимальных элементов столбцов матрицы. во вновь сформированном массиве в определить среднее арифметическое элементов. исходную матрицу а и полученный массив в записать в текстовый файл. ниже есть наработка: uses crt; var a: array[1..5,1..7] of integer; b: array[1..7] of integer; f: text; min,j,i,m: integer; begin assign(f,'результат 1.1.txt'); rewrite(f); begin clrscr; randomize; writeln('матрица а: '); for i: =1 to 5 do begin for j: =1 to 7 do begin a[i,j]: =random(100)-50; write(a[i,j]: 4); if i=j then b[i]: =a[i,j]; end; writeln; end; writeln; writeln('исходный массив в: '); for i: =1 to 7 do write(b[i]: 4); writeln; for i: =1 to 7 do begin if b[i] begin min: =b[i]; m: =i; end; end; writeln; writeln('минимальный элемент b[',m,'] = ',b[m]); readkey; writeln; writeln(f,a[i,j],b[i]); writeln(f,' '); end; close(f); end.
164
476
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin var (m,n): =(7,5); writeln('*** исходная матрица ***'); var a: =matrrandom(m,n,-99,99); a.println(4); writeln(4*a.colcount*'-'); var b: =a.cols.select(col-> col.min).toarray; b.println; var fn: ='результат 1.1.txt'; var f: text; assign(f,fn); rewrite(f); for var i: =0 to m-1 do begin for var j: =0 to n-1 do write(f,a[i,j]: 4); writeln(f) end; for var i: =0 to n-1 do write(f,b[i]: 4); writeln(f); f.close end.
Тут всё очень просто:
for i in range(20, 30, 1):
print(i)
Могу объяснить если надо
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Евгеша20011111.06.2021 19:10
-
andriyana1311.10.2022 02:11
-
lexa367806.04.2023 22:24
-
nurzhamal080112.06.2022 09:23
-
елізабет200219.12.2022 01:44
-
2320061124.06.2020 06:05
-
Neder14.12.2021 14:28
-
Nastyushan201827.08.2021 00:40
-
говешка12322.03.2023 11:45
-
МинаМина200311.08.2022 14:25
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.