• Написать программ в АВС Паскаль.
    Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . Выведите исходные и преобразованные массивы.

Ответы 1

  • //PascalABC.NET 3.1 сборка 1200begin    var n := ReadInteger('n =');    var X := ArrRandom(n, -99, 99);     X.Println;    var Y := ArrRandom(n, -99, 99);     Y.Println;        for var i := Low(X) to High(X) do        if Y[i] > X[i] then Swap(Y[i], X[i]);        writeln();    X.Println;    Y.Println;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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