В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
qwelsaqwelsa
qwelsaqwelsa
11.08.2022 08:24 •  Информатика

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

Показать ответ
Ответ:
mariapopova77
mariapopova77
23.06.2020 15:58
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, затем по одному элементу массива
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота