массивы

[Elena04]

помогите решить задачу по массивам

[Elena04]

Помогите пожалуйста!!!!!
№ 1.
Задан масссив целых чисел из Т элементов. Найти первую пару соседних противоположных чисел ( их сумма равна 0).
№2.
Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.

[rubius2008]

1.

i:=1; while (a[i]+a[i+1]<>0) and (i+1<T) do i:=i+1;
if a[i]+a[i+1]=0 then writeln('первая пара соседних противоположных чисел: ',a[i],' и ',a[i+1]);

2. Дополн. столбик

for i:=1 to m do begin
   a[i,m+1]:=0;
   for j:=1 to n do a[i,m+1]:=a[i,m+1]+a[i,j];
end;

по аналогии для доп. строки