Question

Написать программу на Паскале
Переписать первые элементы каждой строки матрицы A (n×m), большие С, в массив
В. Если в строке нет элемента, большего С, то записать ноль в массив В.

Answer 1

##

var (n, m) := ReadInteger2('Число строк и столбцов через пробел:');

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

a.Print(4);

Writeln;

var c := ReadInteger('Значение С:');

var b := a.Rows.Select(r -> r.Where(t -> t > c).DefaultIfEmpty.First).ToArray;

b.Print