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

Question

98

Срочно! Задача D. «Города и дороги» В одномЗадача D. «Городаи дороги"Водном царстве есть N городов, некоторые из которых соединены дорогами. Царьрешил провести инвентаризацию дорог в своем государстве. Но, как оказалось, онне силен в математике, поэтому он просит вас сосчитать количество дорог. Формат входного файла В файле INPUT. IN записано число N (0≤N≤100). В следующих N строках записано по N чисел, каждое из которыхявляется единичкой или ноликом. Причем, если в позиции (i,j) квадратной матрицыстоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то несоединены. Формат выходного файла В файл OUTPUT.OUT вывести одно число — количество дорог в царстве. Примечание. Все дороги двусторонние, то есть если есть дорога из города i в город j, тоесть и дорога из города j в город i, и это та же самая дорога. Примеры: INPUT. INOUTPUT. OUT50 1 0 0 01 0 1 1 00 1 0 0 00 1 0 0 00 0 0 0 03

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

vlalip · Accepted Answer

52

vlalip

22 февраля 2023

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: