Нуужно решение по pascal abc объявить массив n x n. заполнить его следующим образом: если между с номерами i и j есть дорога, то a ij =1. для каждого города вывести число смежных с ним городов и их номера. вычислить размер матрицы инци-дентности, заполнить ее для данного графа и вывести на экран.
Marvarick
2
03.10.2019 20:10
0
Другие вопросы по теме Информатика
ramzinakadenbaeva
07.12.2021 16:45
асаль14
29.05.2023 23:31
amalia200030
29.05.2023 23:23
saaafffina8902
19.10.2020 12:32
Rianariana2002
19.10.2020 12:05
ksiuu
13.04.2020 11:27
katytucan1
13.04.2020 11:27
DiroL21
17.04.2019 03:30
Популярные вопросы
- Что значит в музыке реальность и фантазия...
1 - 63см 54 мм +28см92 мм. 714т89кг-259т691кг. зарание....
1 - 8.укажіть, у якому рядку в усіх словах дж і дз позначають один звук. а підземний,...
2 - Раздели слова на слоги, поставь ударение галка, сорока, снегирь, дятел, ворона,...
3 - Запиши слова в три столбика. в первый столбик слова м.р., в ед.ч., во второй столбик...
2 - Главная зерновая культура,которую выращивают в азии,-это пшеница.рис.кукуруза.ячмень.просо...
3 - Красна птица пером, а человек умом. надо подчеркнуть буквы в словах , обозначающие...
3 - Один поезд был в пути 13: 00 другой 15: 00 они ехали с одинаковой скоростью второй...
3 - Угол а равнобедренной трапецыи авсд равен 75 .из точки д проведена прямая, которая...
3 - Лисёнок чип,собираясь в путешествие по азии,записывал о ней интересные факты.одна...
3
Если я правильно понял то вот (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.