lab2ex2evm

program lab2ex2evm;
uses crt;
var
  a:array[1..666]of integer;
  n,k,i,i_min,min,i_k:integer;
begin
  clrscr;
  writeln('Введите кол-во элементов вектора: ');
  write('n = ');
  readln(n);

  writeln('Введите элементы вектора:');
  for i:=1 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
  end;

  writeln('Вектор a: ');
  for i:=1 to n do
    write(a[i],' ');
  writeln;

  {поиск первого кратного двум}
  i_k:=0;
  for i:=1 to n do
    if a[i] mod 2 = 0 then
    begin
      i_k:=i;
      break;
    end;
  if i_k=0 then
  begin
    writeln('Нет ни одного элемента, кратного двум.');
    repeat until keypressed;
    exit;
  end;
  if i_k=n then
  begin
    writeln('Ни один элемент не расположен правее 1-го кратного двум.');
    repeat until keypressed;
    exit;
  end;

  {поиск 1-го положительного эл. после 1-го кратного двум }
  i_min:=0;
  for i:=i_k+1 to n do
    if a[i] > 0 then
    begin
      i_min:=i;
      min:=a[i];
      break;
    end;
  if i_min=0 then
  begin
    writeln('Ни один положительный элемент');
    writeln('не расположен правее 1-го кратного двум.');
    repeat until keypressed;
    exit;
  end;

  {поиск минимального положительного правее 1-го кратного двум}
  for i:=i_min to n do
    if ( (a[i] > 0) and (a[i]<min)) then
      min:=a[i];

  writeln('Мин. элемент среди положительных элементов,');
  writeln(' расположенных правее 1-го кратного двум: ',min);
  repeat until keypressed;
end.