Program rabota_s_massivom; const N = 10; var M : array[1..N] of integer; i, max, nowMax, maxIndex, index, summ : integer; begin for i := 1 to N do readln(M[i]); for i := 1 to N do begin if M[i] mod 2 > 0 then begin if nowMax = 0 then index := i; nowMax := nowMax + 1; if (i = N) and (nowMax > max) then begin max := nowMax; maxIndex := index; end; end else if nowMax > max then begin max := nowMax; maxIndex := index; nowMax := 0; end; end; if max = 0 then writeln('Не существует') else begin summ := 0; for i := maxIndex to maxIndex + max - 1 do summ := summ + M[i]; writeln('Сумма: ', summ); end; end.
