двумерные массивы

[laluna]

Дана квадратная целочисленная матрица порядка n. Сформировать результирующий одномерный массив, элементами которого являются строчные суммы тех строк, которые начинаются с k идущих подряд положительных чисел.

[Stilet]

Наработками можешь похвастаться?

[Fuadik]

#
var a: array[1..n, 1..n] of integer;
b: array[1..n] of integer;
i, j, k, S,T, m: integer;
begin
// ввод размерности матрицы
write('n=');
readln(n);
// ввод элементов матрицы
for i:=1 to n do
begin
for j:=1 to n do
begin
write('a[', i,',','j]=';
readln(a[i, j]);
end;
writeln;
end;
m:=0;
for i:=1 to n do
begin
if a[i, 1]>0 then
begin
S:=a[i, 1];
//проверяем первые к элементов на положительность.Если хоть один //элемент отрицательный, выходим из цикла, иначе суммируем
for j:=2 to k do
begin
T:=abs(a[i, j]);
if (a[i, j]/T>0) and (j<=k) then S:=S+a[i, j] else goto 1;
//если первые к элементов были положительные, то продолжаем //суммирование
if (j=k) and (k<n) then
for j:=k+1 to n do S:=S+a[i, j];
end;
//присваиваем сумму элементу результирующего массива
inc(m);
b[m]:=S;
end;
1: end;
// Результирующий массив
for i:=1 to m do
readln(b[i]);
end;
#
За правильность не ручаюсь, но вроде верно