Срочно!!!Задача D. "Города и дороги" В одномЗадача D. "Городаи дороги"Водном царстве есть N городов, некоторые из которых соединены дорогами. Царьрешил провести инвентаризацию дорог в своем государстве. Но, как оказалось, онн...
Срочно!!!Задача 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
Гость
Ответ(ы) на вопрос:
Гость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, затем по одному элементу массива
Не нашли ответ?
Похожие вопросы