Дан граф. Определи его точки сочленения и мосты.
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

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.результат работы: