Дан граф. Определи его точки сочленения и мосты.
1) Точки сочленения графа:
A, B, C, I, J
F, D, H, G
D, E, K, L
K, L, F, H, D
2) Мосты графа:
EK, EF, FK
AK, AL
FL, LG, FG, EF
AB, AJ, BC, CD, IJ, IH
218
346
Ответы на вопрос:
Var f: text; i, j, n, n1: integer; matrix: array[,] of real; begin assign(f, 'informat8.txt'); reset(f); //найдём количество строк в матрице while not eof(f) do begin readln(f); inc(n); end; writeln('исходная матрица размерности ', n, 'x', n); //инициализируем массив (размерность узнали выше) matrix : = new real[n, n]; reset(f); // далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0) for i : = 0 to n - 1 do begin for j : = 0 to n - 1 do begin read(f, matrix[i, j]); write(matrix[i, j]: 8: 2); end; readln(f); writeln; end; writeln; n1 : = 0; for i : = 0 to n - 1 do for j : = 0 to n - 1 do if matrix[i, j] < 0 then inc(n1); if n1 > round(n * n / 2) then begin writeln('отрицательных элементов больше половины'); //удваиваем элементы в чётных строках for i : = 0 to n - 1 do begin if odd(i) then begin for j : = 0 to n - 1 do matrix[i, j] : = matrix[i, j] * 2; end; end; end else begin writeln('отрицательных элементов меньше половины или ровно половина'); //удваиваем элементы последнего столбца for i : = 0 to n - 1 do matrix[i, n - 1] : = matrix[i, n - 1] * 2; end; writeln('результирующая матрица'); for i : = 0 to n - 1 do begin for j : = 0 to n - 1 do write(matrix[i, j]: 8: 2); writeln; end; end.результат работы:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kuzmov5530.05.2023 06:43
-
alisaali20042501.07.2022 22:25
-
АЛИСАпЕЧЕНЬка78728.11.2020 23:58
-
leksutin129.06.2023 22:56
-
milerowskaya13.06.2022 02:17
-
ЮлияСалт23.02.2021 11:51
-
svetlanagilman120.02.2021 21:28
-
alexfeels55502.05.2021 10:01
-
dasha6853112.01.2021 09:00
-
Vadimlvo1121.04.2021 20:27
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.