Имне надо подсчитать сумму элементов между этими элементами и чтоб эти 2 числа тоже входили в сумму!
Port111
5.04.2003 13:20
Только удчтите что есть такие косяки, что сначала идет элемент макс а затем мин, а может и наоборот.... Как это сделать? Но не вьежаю я..
AlaRic
5.04.2003 13:47
Код
program summa; const n=10; var a:array[1..n] of integer; s,i,max,min,k,k2:integer; begin writeln('ввести массив'); for i:=1 to n do read(a[i]); s:=0;max:=a[1];min:=a[1]; for i:=2 to n do if max < a[i] then begin max:=a[i]; k:=i; end; for i:=2 to n do if min > a[i] then begin min:=a[i]; k2:=i; end; if k < k2 then for i:=k to k2 do s:=s+a[i] else for i:=k2 to k do s:=s+a[i]; writeln('Сумма',s); end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.