• Подскажите пожалуйста, где я ошиблась в решении этой задачи: Дан массив А размера 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.

Ответы 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.

    • Автор:

      guy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years