Question

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

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.