• Вопрос по информатике:

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

    • Автор:

      krista

  • Ответ:

    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.

    • Отвечал:

      pedrorph5
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска