Найти сумму по строкам,в матрице,элементов,после 1 отрицательного меньше br больше (Паскаль)

Question

Найти сумму по строкам,в матрице,элементов,после 1 отрицательного
(Паскаль)

Гость

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

Гость

const N=10; var a:array [1..N] of integer; i,j : word; sum: integer; begin i:=1; while a>=0 do inc(i); for j:=i to N do sum:=sum+a; end.

Accepted Answer

Паскалю и не снилось, что его переложат в матрицы!