• В одномерном массиве поменять местами максимальные и минимальные элементы (в паскале)

Ответы 1

  • program pr;var a:array [1..10] of integer i, imax, imin, mx, mn, n:integer;beginfor i := 1 to 10 doa[i] := random(50);mx := a[1];for i := 2 to 10 dobeginif a[i] > mx then beginmx := a[i];imax := iend;end;mn := a[0];for i := 2 to 10 dobeginif a[i] < mn then beginmn := a[i];imin := iend;end;a[imax] := mn;a[imin] := mxwriteln(a);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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