Списки смежности из матрицы - Pascal

Формулировка задачи:

Здравствуйте,помогите пожалуйста написать программу,спасибо.Напишите программу, которая строит списки смежности для каждой вершины графа на основе его матрицы смежности. Входные данные В первой строке вводится количество вершин графа N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – элементы матрицы смежности графа. Выходные данные Программа должна вывести списки смежности для каждой вершины графа в порядке возрастания их номеров. Номера вершин в каждом списке разделены пробелами. Нумерация начинается с единицы. Если из вершины не выходит ни одно ребро, вместо списка нужно вывести число 0. Примеры входные данные 5 0 1 1 1 0 1 0 1 0 1 1 1 0 1 0 0 0 0 0 0 0 1 0 1 0 выходные данные 2 3 4 1 3 5 1 2 4 0 2 4


textual

Код к задаче: «Списки смежности из матрицы - Pascal»

var
  n, i, j, k, a: Integer;
begin
  ReadLn(n);
  for i:=1 to n do begin
    k:=0;
    for j:=1 to n do begin
      Read(a);
      if a<>0 then begin
        Write(' ',j); Inc(k);
      end;
    end;
    if k=0 then Write(0);
    ReadLn; WriteLn;
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.786 из 5

Источник