напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6. Заполнить данный массив с клавиатуры, найти и вывести наименьшую нечетную сумму двух соседних элементов массива.
More Questions From This User See All
Answers & Comments
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.