• С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Найти и вывести первый по модулю меньший Z (вводится с клавиатуры) элемент и его координаты. Если элементов, удовлетворяющих условию нет, вывести соответствующее сообщение.
    решить кумир/паскаль

Ответы 1

  • // PascalABC.NET 3.2, сборка 1431 от 28.04.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк в матрице:');  var m:=ReadInteger('Количество столбцов в матрице:');  Writeln('*** Исходная матрица [',n,',',m,'] ***');  var a:=ReadMatrInteger(n,m);  var z:=ReadInteger('Z=');  var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z);  if s.Count>0 then begin    var t:=s.First;    Writeln('Строка ',t[0]+1,', столбец ',t[1]+1)    end  else    Writeln('Элемент не найден');end.ПримерКоличество строк в матрице: 4Количество столбцов в матрице: 5*** Исходная матрица [4,5] ***-33 -46 7 48 -44-13 -3 -13 -10 48-18 -25 -39 -23 -4428 32 -1 39 3Z= 5Строка 2, столбец 2
  • Добавить свой ответ

Войти через Google

или

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

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

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