Вот собственно сама задача:
Входной файл graf.in
Выходной файл graf.out

Степень вершины графа - это количество ребер, идентичных заданной вершине. неориентированный граф задан матрицей смежности. Определить степень каждой вершины. Кратные ребра и петли отсутствуют.

Входные данные.
В первой строке записано число N - количество вершин графа. В следующих строках расположено описание матрицы: на пересечении строки i и столбца j записана единица, если вершины i и j соединены ребром, и ноль в противном случае.

Выходные данные
В выходной файл записать N чисел - степень каждой вершины.

Пример
graf.in
5
0 1 1 0 1
1 0 1 1 0
1 1 0 0 0
0 1 0 0 1
1 0 0 1 0

graf.out
3
3
2
2
2

Я знаю что нужно найти количество единичек в каждой строке(начиная со второй) входного файла, а вот как это сделать не знаю (IMG:style_emoticons/default/sad.gif)
А вот как выглядит сам граф:
(IMG:http://pascal-for-all.ucoz.ru/_fr/3/7499114.jpg)

i и j из файла читать не надо (IMG:style_emoticons/default/smile.gif)
Их там нет (IMG:style_emoticons/default/smile.gif)
А вместо read(tval); нужно написать read(f, tval); (IMG:style_emoticons/default/wink.gif)
Ах да, после assign'ов еще надо написать reset(f); rewrite(f1);
И перед writeln(f1,summ); наверное нужно написать readln(f);
Вроде все (IMG:style_emoticons/default/smile.gif)