Maratos668, Исправил пост, там бред написал

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.

Смотря че за задачи Чет помню еще..