profile
Опубликовано 6 лет назад по предмету Информатика от Islom36

Сделайте пожалуйста сколько можете!!!!

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4, сборка 1670 от 23.05.2018
    Внимание! Если программа не работает, обновите версию!
    №10

    begin
      Writeln('*** Исходная матрица ***');
      var a:=MatrRandom(10,10,-20,20);
      a.Println(4); Writeln(4*a.ColCount*'-');
      var mx:=a.ElementsByRow.Max;
      a.Transform(t->t=mx ? 0 : t);
      Writeln('*** Полученная матрица ***'); a.Println(4)
    end.
Самые новые вопросы