Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- n,i,j:integer;
- u,v,w:integer;
- graph: array [1..100,1..100] of integer;
- table: array [1..100,1..100] of integer;
- begin
- read(n);
- for i:=1 to n do
- begin
- read(u,v,w);
- graph[u][v]:=w;
- end;
- for i := 1 to n do
- begin
- for j:= 1 to n do
- begin
- if (graph[i][j] <> 0) then
- table[i][j] := graph[i][j];
- end;
- end;
- println('table');
- for i := 1 to n do
- begin
- for j:= 1 to n do
- begin
- print(table[i][j]);
- end;
- println;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement