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

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

Задать свой вопрос
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 jlt;=n-i+1 then a[i,j]:=n-j+1

   else a[i,j]:=0;

   write(a[i,j]:3)

  end;

 writeln

end

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт