• В целочисленной матрице размером 10х10 случайным образом задать элементы. Вывести на экран исходную матрицу. Найти максимальное значение и индексы всех элементов равных максимальному значению.

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(10,10,-99,99);  a.Println(4); (40*'-').Println;  var max:=a.ElementsByRow.Max;  a.ElementsWithIndexes.Where(t->t[0]=max)      .ForEach(t->Write('[',t[1]+1,',',t[2]+1,'] '))end.
    answer img
    • Автор:

      rodney
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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