a48.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 25 行

var f:text;
    n,i,j:integer;
    a:array[1..20,1..20] of integer;
    v:array[1..20] of integer;
begin
assign(f,'bac.in');reset(f);
readln(f,n);
i:=1;
j:=1;
for i:=1 to n do
              begin
              for j:=1 to n do read(f,a[i,j]);
              readln(f);
              end;
close(f);
for i:=1 to n do
  for j:=1 to n do
     if a[i,j]=1 then inc(v[i]);
for i:=1 to n do
  if v[i]=0 then writeln(i,' este varf izolat');
for i:=1 to n do
  writeln('gradul lui ',i,' este ',v[i]);
readln;
end.