Задать вопрос Регистрация
Помочь другим

  • в массиве А(N) поменяйте местами первый отрицательный и минимальный элементы

Ответы 1

  • uses crt;

    const N=10;var a:array[1..N] of integer; i,k,m,min,imin:integer;Beginreadln(m);for i:=1 to m do beginreadln(a[i]);min:=min+a[i];end;

    for i:=1 to m do beginif a[i]<0 then begink:=i;break;end;end;

    for i:=1 to m do beginif a[i]<min then beginmin:=a[i];imin:=i;end;end;

    min:=a[imin];a[imin]:=a[k];a[k]:=min;

    for i:=1 to m do write(a[i],' ');

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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