Помогите решить 22 задачку в обычном паскале

могу в PascalABC.NET, в обыкновенном не желаю

если под обыденным вы подразумеваете турбо-паскаль либо даже фрипаскаль

именно тот что вы указали выше

так что, давать для вас решение в PascalABC.NET?

если не тяжело

Занятно... а какой же паскаль "необыкновенный"?

да, если PascalABC.NET это теснее обыденный, то означает все другие уже необычные =)

ну если его в школе изучают то значит обычный либо нет ?

Занимательно, а при нахождении произведения сам минимальный элемент 1) не учесть 2) учесть один раз 2) учесть два раза

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

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

begin

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

 Writeln('*** Начальная матрица ***');

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

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var c := ReadInteger('Введите число С:');

 var s := a.ElementsWithIndexes; // в памяти не хранится !

 s.Where(t -gt; t[0] lt; c).Count.Println;

 var p := s.MinBy(t -gt; t[0]);

 var r := a.Row(p[1]).Aggregate(BigInteger(1), (x, y)-gt; x * y);

 r *= a.Col(p[2]).Aggregate(BigInteger(1), (x, y)-gt; x * y);

 r.Println

end.

Если будете вводить матрицу поэлементно, придется изменить ввод, тут вводятся естественные числа от 1 до m*m c шагом 1, для образца. Чтоб вводить по одному элементу, замените код в 3 строке на:

var a := ReadMatrInteger(m, m);

Ну и Если необходимы вещественные то, соответсвенно на такую

//  var a := ReadMatrReal(m, m);

Ах да, здесь еще число С введено заранее, тоже если возжелаете вводить его вручную, необходимо поменять на это:

var c := ReadInteger; //(или var c := ReadReal)