const n=7; begin Writeln('Исходный массив:'); var a:=MatrRandomReal(n,n,-5,5); a.Println(6); var m:=a.ElementsByRow.Min; var imin:=a.ElementsWithIndexes.Where(k->k[0]=m).Select(k->k[1]).Single; var jmin:=a.ElementsWithIndexes.Where(k->k[0]=m).Select(k->k[2]).Single; writeln('min = a[',imin+1,',',jmin+1,'] =',m:6:2); end.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var avg:=a.ElementsByRow.Average; Writeln('Среднее значение ',avg); var min:=(a.ElementsWithIndexes.Select(t->(Abs(t[0]-avg),t[1],t[2])) .MinBy(t->t[0])); Writeln('Наименее отличающийся от среднего элемент A[', min[1]+1,',',min[2]+1,'] = ',a[min[1],min[2]]) end.