дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшую нечетную сумму двух соседних элементов массива
Program ht1;
const n = 70;
var
mas: array[1..n] Of integer;
i, min: integer;
begin
min := 100;
for i := 1 to n do
begin
mas[i] := random(69) + 1;
Write(mas[i]:3);
end;
for i := 2 to n do
begin
if(((mas [i] + mas[i - 1]) mod 2) <> 0) then
if(min > mas[i] + mas[i - 1]) then
min := mas[i] + mas[i - 1];
end;
Writeln;
Write('Не чётная минимальная сумма: ', min);
end.
Исправил пост, там бред написал