Найти сумму элементов

[Asylkhan]

Найти сумму элементов в тех строках,
которые содержат хотя бы один отрица*тельный элемент (оформить в виде функции)

[Asylkhan]

А. Создать файл, содержащий сведения о том, какие из пяти предлагаемых дисциплин по выбору желает слушать студент. Структура записи: фамилия студента, индекс группы, 5 дисциплин, средний балл успеваемости. Выбираемая дисциплина отмечается символом 1, иначе— пробел. Количество записей — 25.

Б. Написать программу, которая печатает список студентов, желающих прослушать дисциплину X. Если число желающих превысит 8 человек, то отобрать студентов, имеющих более высокий средний балл успеваемости

[ROMA2PVT]

Найти сумму элементов в тех строках,
которые содержат хотя бы один отрица*тельный элемент (оформить в виде функции)

for i:=1 to n do
       begin
           summ:=0;
           sum:=0;
           f:=false;
           for j:=1 to m do
           begin
                summ:=summ+mas[i,j];
                if mas[i,j]<0 then
                f:=true;
                end;
           if f then
           begin
           sum:=sum+summ;
           writeln('Сумма элеентов в ',i,'-й строке:=',sum)
       end;
       end;