Регистрация
ruslankz02
19.12.2021 17:35
Информатика
Есть ответ 👍

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

285
353
Посмотреть ответы 2

Ответы на вопрос:

Саня111178
Саня111178
4,7(24 оценок)

если я правильно понял то вот (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.

kotik53Tv
kotik53Tv
4,5(19 оценок)
0,20100102e4 20,100102e2 201001,02e-2 2010010,2e-3 20100102e-4

Популярно: Информатика