Срочно нуужно решение по Pascal abc Объявить массив n x n. Заполнить его следующим...

Question

Срочно нуужно решение по Pascal abc Объявить массив n x n. Заполнить его следующим образом: если между городами с номерами i и j есть дорога, то a ij =1. Для каждого города вывести число смежных с ним городов и их номера. Вычислить размер матрицы инци-дентности, заполнить ее для данного графа и вывести на экран.

Answer 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

   else a[i,j]:=0;

   write(a[i,j]:3)

  end;

 writeln

end

end.