Задача: Простой ориентированный граф задан списком ребер, выведите его представление в виде матрицы смежности.

Входные данные
На вход программы поступают числа n ( 1≤n≤100 ) – количество вершин в графе и m ( 1≤m≤n(n−1) ) – количество ребер. Затем следует m пар чисел – ребра графа.

Выходные данные
Выведите матрицу смежности заданного графа.

КОД:
var a,b,m,n,i,j,k,x,y:longint;
mas: array [1..1000, 1..1000] of integer;
begin
read(n, m);
for k:= 1 to m do
readln(x, y);
a:=n;
b:=n;
for i:=1 to a do
begin
for j:=1 to b do
begin
if (i= y) and (j= x) then
if j=b then
writeln(1)
else
write(1)
else
if j=b then
writeln(0)
else
write(0);
end;
end;
end.

...

verunyabogachk    3   05.05.2021 09:39    6