• помогите с 3, пожалуйста
    двумерные массивы, Паскаль

    question img

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     Writeln('*** Исходный массив ***');

     var a := MatrRandom(5, 4, -5, 12);

     a.Println(4);

     Writeln('*** Полученный массив ***');

     for var i := 0 to a.RowCount - 2 do

     begin

       var j := a.Row(i).IndexMin;

       a[i, j] := -a[i, j]

     end;

     a.Println(4)

    end.

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

Войти через Google

или

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

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

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