Принять, что в массиве по одному MAX и MIN элемента.(значения переменных считать произвольными)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | INPUT kDIM r(k)FOR i=1 TO k INPUT"vvedite element ",r(i)NEXTmax=r(1)min=r(1)nmax=1nmin=1FOR i=1 TO kIF r(i)>max THEN max=r(i):nmax=iIF r(i)<min THEN min=r(i):nmin=iNEXTPRINT nmax+nmin |