Паскаль. Найти сумму наибольших элементов в строках двумерного массива

[Женька Good]

Найти сумму наибольших элементов в строках двумерного массива, т.е. с каждой строки выбираем наибольший элемент и суммируем их.
помогите с алгоритмом плз)

[Mad_Cat]

с каждой строки выбираем наибольший элемент и суммируем их.

вот и весь алгоритм)

[Женька Good]

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

вот и весь алгоритм)

Ну это конечно и так понятно, мне бы что-то на программном уровне.

[ByAlex]

Сообщение от Женька Good

Ну это конечно и так понятно, мне бы что-то на программном уровне.

Вот так-

sum:=0;
for i:=1 to 5 do
begin
   max:=Arr[i,1];
   for j:=1 to 5 do
      if Arr[i,j]>max then
         max:=Arr[i,j];   
   Sum:=sum+max;
end;
write('Sum = ',sum);

[Женька Good]

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

Вот так-

sum:=0;
for i:=1 to 5 do
begin
   max:=Arr[i,1];
   for j:=1 to 5 do
      if Arr[i,j]>max then
         max:=Arr[i,j];   
   Sum:=sum+max;
end;
write('Sum = ',sum);

Спасибо, жаль нет возможности сейчас попробовать..