Поиск по этому блогу

пятница, 3 ноября 2017 г.

Задача "Дороги"

(Время: 1 сек. Память: 16 Мб Сложность: 18%)
В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».
Входные данные

В первой строке входного файла INPUT.TXT записано число N (0 ≤ N ≤ 100). В следующих N строках записано по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i, j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены.
Выходные данные
В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake».
Пример
INPUT.TXT
OUTPUT.TXT
1
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   d:array[1..100,1..100] of integer;
n,i,j,k:integer;
f,f1:text;
begin
assign(f,'input.txt');
    reset(f);
     assign(f1,'output.txt');
     rewrite(f1);
    readln(f,n);
    if n<2 then {Write(f1,0)} else begin
    for i:=1 to n do
    begin
    for j:=1 to n do
    read(f,d[i,j]);
    readln(f);
    end;   
    for i:=1 to n-1 do
    for j:=i+1 to n do
     k:=k+d[i,j];
    end;
    writeln(f1,k);
 close(f1);  close(f);

end.

Вопросы, замечания, свои вариант решения пишите в комментариях.

Комментариев нет:

Отправить комментарий