напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от...

Question

напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6. Заполнить данный массив с клавиатуры, найти и вывести наименьшую нечетную сумму двух соседних элементов массива.

Answer 1

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[i]);
 end;
s:=a[1]+a[2];
for i:=2 to n do
 begin
  if s>(a[i]+a[i-1]) then
  s:=a[i]+a[i-1];
 end;
writeln (s);
end.