Question

D. "города и дороги" в d. "города и дороги" в одном царстве есть n городов, некоторые из которых соединены дорогами. царь решил провести инвентаризацию дорог в своем государстве. но, как оказалось, он не силен в , поэтому он просит вас сосчитать количество дорог. формат входного файла в файле input. in записано число n (0≤n≤100). в следующих n строках записано по n чисел, каждое из которых является единичкой или ноликом. причем, если в позиции (i,j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены. формат выходного файла в файл output. out вывести одно число - количество дорог в царстве. примечание. все дороги двусторонние, то есть если есть дорога из города i в город j, то есть и дорога из города j в город i, и это та же самая дорога. примеры: input. in output. out 5 0 1 0 0 0 1 0 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 3

Answer 1

Var n,s,j,i: integer;
a:array[1..15,1..15] of integer;
begin
writeln ('введите число');
readln(n);
for j:=1 to n do
for i:=1 to n do readln
(a[i,j]);
for j:=1 to n do begin
for i:=1 to n do begin
write (a[i,j],'  '); 
end;
writeln;
end; 
for j:=1 to n do begin
for i:=j to n do begin
if (i>j) and (a[i,j]=1) then s:=s+1;
end;end;
writeln ('s=',s);
end.          'Эта задача с олимпиады? В решении ввод данных идет с клавиатуры.Сначала вводим размер матрицы n, затем по одному элементу массива