Вечер добрый, вопрос такой : Дан массив R(N,M).Построить вектор из элементов матрицы,...

Question

Вечер добрый, вопрос такой : Дан массив R(N,M).Построить вектор из элементов матрицы, удовлетворяющей условию R(I,J) В PascalABC.NET

Comments

Какое-то у Вас условие странное...

---

R[I,J] B

---

А сама задача примитивнейшая для этого языка.

---

Дан массив R(N,M).Построить вектор из элементов матрицы, удовлетворяющей условию R(I,J)В PascalABC.NET.

---

Вечер добрый, вопрос такой :Дан массив R(N,M).Построить вектор из элементов матрицы, удовлетворяющей условию R(I,J) меньше C, где С-константа . В полученном векторе найти максимальный элемент и его индекс.В PascalABC.NET.

---

Такими командами не проходили, не могли бы вы расписать проще, ибо ничего не понятно

---

Я не знаю, что Вы называете "проще" и не знаю, что Вы проходили, а что нет. Если у Вас конкретные требования к коду программы, нужно указывать подмножество языка, с которым вы работаете, или конкретную версию языка, или компилятор, или прикреплять пример решения любой задачи из той, темы, по которой задание.

---

Предполагаю, раз этот код Вам непонятен, для Вас "проще" - это будет 25-35 строк кода вместо 13. Сомнительная простота.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (n, m) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var r := MatrRandom(n, m, -99, 99);

 r.Println(4);

 Writeln(4 * r.ColCount * '-');

 var c := ReadInteger('Введите значение С:');

 var v := r.ElementsByRow.Where(t -> t < c).ToArray;

 Writeln('*** Полученый вектор ***');

 v.Println;

 var i := v.IndexMax;

 Writeln('Максимальный элемент v[', i + 1, ']=', v[i])

end.

---