Помогите пожайлуста решить задачу

[RUSLAN13]

Составить программу(в Паскале), используя одномерный массив, для решения задачи:
(√│A1│- A1) +…+ (√│An│-An)






P.S. под корнем только модуль.

[RUSLAN13]

И ещё вот вторая задача....
Составить программу(в ПАскале) для решения задачи:
"Дана действительная матрица размером m*n. Найти сумму наибольших значений элементов её строк"

[Дамир]

1.

s:=0;
For i:=1 to n do
  s:=S+(Sqrt(abs(a[i]))-a[i]);

[Дамир]

2

s:=0;
For i:=1 To n Do Begin
  max:=m[i,1];
  For j:=2 to m Do
    If max<m[i,j] Then max:=m[i,j];
  s:=s+max;
End;

[RUSLAN13]

скорее всего For j:=1 to m Do

[fixoto]

Сообщение от RUSLAN13

скорее всего For j:=1 to m Do

нет, Дамир прально написал что от 2