Delphi: 2 простые задачи на массивы и матрицу

[theFEAR]

Задачки простые, но уже ничего не помню, помогите пожалуйста с решением. Нужно срочно!

№1: Длинна массива 10, тип-real, Определить сумму положительных и отрицательных элементов массива и записать эти суммы вместо первого и последнего элемента массива соответственно.

№2: В матрице найти максимальные элементы по строкам и вычислить их сумму: А [ 2 x 3 ] , тип-real.

Заранее благодарен

[IT-man]

1)

sp:=0;
so:=0;
for i:=1 to 10 do begin
if mas[i]>0 then sp:=sp+mas[i];
if mas[i]<0 then so:=so+mas[i];end;
mas[1]:=sp; mas[10]:=so;

2)

sum:=max(a[1,1],a[1,2])+max(a[2,1],a[2,2])+max(a[3,1],a[3,2])

[theFEAR]

IT-man Во, пасиб огромное, вспомнил)))