Нуужно решение по pascal abc объявить массив n x n. заполнить его следующим образом: если между с номерами i и j есть дорога, то a ij =1. для каждого города вывести число смежных с ним городов и их номера. вычислить размер матрицы инци-дентности, заполнить ее для данного графа и вывести на экран.
Если я правильно понял то вот (Pascal ABC)
const n=6;
var i,j:byte;
a:array[1..n,1..n] of byte;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<=n-i+1 then a[i,j]:=n-j+1
else a[i,j]:=0;
write(a[i,j]:3)
end;
writeln
end
end.