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

269

491

Посмотреть ответы 2

Ответы на вопрос:

140219801

Информатика

4,4(17 оценок)

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