Опубликовано 26.01.2018 по предмету Информатика от Гость

Заполнить матрице 5Х5, случайными числами [0:100]. Найти максимальное значение, определить его координаты (строка, столбец), определить где находится элемент относительно главной диагонали. pascal срочно надо!!!

Ответ оставил Гость

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(5,5,0,100);
  Writeln(*** Исходная матрица ***);
  a.Println(4); Writeln(4*a.ColCount*-);
  var k:=a.ElementsWithIndexes.MaxBy(t->t[0]);
  Write(Максимальный элемент [,k[1]+1,,,k[2]+1,]=,k[0]);
  var p:= на ;
  if k[1]  else if k[1]>k[2] then p:= ниже ;
  Writeln(, расположен,p,главной диагонали)
end.

Пример
*** Исходная матрица ***
  41   4  37  54  30
  71  73  75  65  22
  38  60  85  89  74
   0  87  82  55  69
  69  87  21  71  73
--------------------
Максимальный элемент [3,4]=89, расположен выше главной диагонали

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы