Составить функцию

Question

Составить функцию

Составить функциюСоставить функцию, в которой производится суммирование наибольших элементов в каждой нечетной строке матрицы А и наименьших элементов из каждой строки с четным номером.

Гость

Ответ(ы) на вопрос:

Accepted Answer

function ex:real; var i,j:integer; s,p:real; begin s:=0; for i :=1 to maxi do begin if i mod 2 = 0 then begin p:=matr[i,1]; for j:=1 to maxj do if matr[i,j]<p>p then p:=matr[i,j]; end; s:=s +p end; ex:=s; end;