profile
Размещено 6 лет назад по предмету Информатика от juzpaw12p5szr4

В матрице A(n*n) поменять местами первый элемент с наименьшим диагональным элементом.
паскаль

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    // PascalABC.NET 3.3

    begin
     var n:=ReadInteger('n =');
     var a:=MatrRandom(n,n,-10,10).Println(5);
     var i:=a.ElementsWithIndexes.Where(k->k[2]=k[1]).
          Select(k->k[0]).ToArray.IndexMin;
     Swap(a[0,0],a[i,i]);
     writeln('* * * * * * *');
     a.Println(5);
    end.

    Пример:
    n = 4
        7    9   -7   -2
        5    9   -5    5
        1    7    2    4
       -6    0   -4    7
    * * * * * * *
        2    9   -7   -2
        5    9   -5    5
        1    7    7    4
       -6    0   -4    7
  2. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      var n:=ReadInteger('Количество строк/столбцов в матрице:');
      Writeln('*** Исходная матрица ***');
      var a:=MatrRandom(n,n,-99,99);
      a.Println(4); Writeln(4*a.ColCount*'-');
      var k:=Range(0,n-1).Select(i->a[i,i]).ToArray.IndexMin;
      Swap(a[0,0],a[k,k]);
      Writeln('*** Результат ***');
      a.Println(4)
    end.

    Пример
    Количество строк/столбцов в матрице: 5
    *** Исходная матрица ***
     -54   0  45  24  72
     -90  46  54  46  50
     -51  85 -76 -64 -27
     -14 -33 -66   2  71
      43 -92  77  58 -22
    --------------------
    *** Результат ***
     -76   0  45  24  72
     -90  46  54  46  50
     -51  85 -54 -64 -27
     -14 -33 -66   2  71
      43 -92  77  58 -22
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.