Даны натуральное число N, целые числа a1,a2,.,an. Найти

PerSeAl

Даны натуральное число N, целые числа a1,a2,...,an. Найти наименьшее из четных чисел, входящих в последовательность a1-1, a1,a2,...,an.Друзья, помогите решить задачу, не знаю как задать min, чтобы потом с ним сравнивать.
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  a: array of Integer;
  n,i,j,min: Integer;
begin
  Write('n= ');
  Readln(n);
  SetLength(a,n+1);
  for i:=1 to n do
  begin
    Write('a[',i,']= ');
    Readln(a[i]);
  end;
  a[0]:=a[1]-1;
  for j:=0 to n do
  if (a[j]) mod 2=0 then
    begin
      if (a[j]<min) then
      min:=a[j];
    end;
  Writeln('min= ',min);
  Readln;
end.
1 ответ