Помогите с программой, пожалуйста! (Pascal) Или подскажите, где можно найти различные решения задач на Паскале?

хм.. . могу скинуть архив там порядка 200-300 задач) но только в понедельник

пожалуйста)

//Задание: Ввести матрицу A(N*M) , вывести ее. В каждой
//строке найти сумму элементов расположенных после
//первого нулевого элемента. Значения найденных сумм поместить
//в одномерный массив B(N) .
var
a:array[1..50,1..50] of integer;
b:array[1..50] of integer;
k,j,p,n,m:integer;

begin
randomize;
write('vvedite kol-vo strok massiva A: '); readln(n);
write('vvedite kol-vo stolbcov massiva A: ');readln(m);writeln;
writeln('=======Massiv A:=======');
for k := 1 to n do
begin
for j := 1 to m do
begin
a[k,j]:=random(50)-100;
write(a[k,j]:6);
end;
writeln;
end;
b[k]:=0;
writeln;
writeln('=======Massiv B:=======');
for k := 1 to n do
begin
for j := 1 to m do
begin
b[k]:=a[k,j]+b[k];
end;writeln('summa ',k,'-oi stroki massiva A: ',b[k]:8);b[k]:=0;
end;
readln;
end.

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

Буду краток:

=============================
program Array2x;

const
// Размерность
N = 3;
M = 3;

var
// Матрица
Matrix: array[1..N, 1..M] of Integer;
// Массив сумм
SumArray: array[1..N] of Integer;
// Флаг суммирования
IsNulFound: Boolean;
// Итераторы
I: Integer;
J: Integer;

begin
// Заполнение матрицы
for I := 1 to N do
begin
for J := 1 to M do
begin
Write(I, ', ', J, ': ');
ReadLn(Matrix[I, J]);
end;
end;
// Вычисление сумм элементов строк
for I := 1 to N do
begin
IsNulFound := false;
for J := 1 to M do
begin
// Если флаг разрешения установлен
if IsNulFound then
begin
SumArray[ i ] := SumArray[ i ] + Matrix[I, J];
end;
// Выставление флага разрешения
if Matrix[I, J] = 0 then
begin
IsNulFound := true;
end;
end;
end;
WriteLn;
// Вывод матрицы
Write('Matrix:');
for I := 1 to N do
begin
WriteLn;
for J := 1 to M do
begin
Write(Matrix[I, J], ' ');
end;
end;
WriteLn;
WriteLn;
// Вывод массива сумм
WriteLn('Summ Array:');
for I := 1 to N do
begin
Write(SumArray[ i ], ' ');
end;
ReadLn;
end.
=============================

З. Ы. : что непонятно - пишите в ICQ: 228004347 или Агент.

Могу решить