Срочно!!!Задача D. "Города и дороги" В одномЗадача D. "Городаи дороги"Водном царстве есть...

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, затем по одному элементу массива