Array 28 - 29

var
  A: array[1..255] of integer;
  N, i, min, k: byte;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите ', N, ' элементов массива(через пробел):');
  write('  ');
  for i := 1 to N do
   read(a[i]);  //Вводим элементы массива
  N := N div 2; //Количество четных номеров массива.
  min := a[2];  //Минимальный элемент
  k := 2;       //и его начальный номер.
  for i := 2 to N do
    if a[2 * i] < min then //Если находится элемент меньше min,
     begin
       min := a[2 * i]; //то он становится минимальным.
       k := 2 * i //Запоминаем номер минимального элемента.
     end;  
  write(' Минимальный элемет среди четных');
  writeln(' номеров равен: a[', k, '] = ', min)
end.

var
  A: array[1..100] of integer;
  i, N, max: integer;
  
begin
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  max := -MaxInt; //минимальное возможное целое число типа integer
 { Вводить элементы массива и находить максимальный 
 из них будем в одном цикле (за один проход): }
  for i := 1 to N do
  begin
    read(a[i]); //вводим i-й элемент массива
    if odd(i) then //если i - нечетный номер
      if a[i] > max then max := a[i] //проверяем число на максимум
  end;
  writeln;
  writeln('Результат: ', max)
end.