напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6. Заполнить данный массив с клавиатуры, найти ивывести наименьшую нечетную сумму двух соседних элементов массива.
Program lol; Const n=6; var a:array [1..n] of integer; i,s:integer; begin begin for i:=1 to n do readln (a); end; s:=a[1]+a[2]; for i:=2 to n do begin if s>(a+a[i-1]) then s:=a+a[i-1]; end; writeln (s); end.