Ответ :
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
[tex]\\[/tex]
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
Пример в приложении.
![Посмотреть изображение Giammy](https://ru-static.z-dn.net/files/df7/9e3f8e11d1b677dc68a4d5dfd1988836.png)
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
Пример в приложении.