Подскажите пожалуйста, где я ошиблась в решении этой задачи: Дан массив А размера N....

Question

Подскажите пожалуйста, где я ошиблась в решении этой задачи: Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами. var a: array of integer; i,m,n: integer; begin readln (n); setlength ( a, n); for i:=0 to n-1 do read (a[i]); m:=a[0]; for i:=1 to n-1 do if ( i mod 2=0 ) and ( a[i] ) then m:= a[i]; writeln (m) end.

Answer 1

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.