В двумерном массиве размерностью N*M, содержащем целые числа, найти среднее арифметическое минимальных элементов строк

uses crt;var i,j,min,n,m :integer; s:real;a:array[1..100,1..100] of integer;b:array[1..100] of integer;beginreadln(n,m);s:=0;for i:=1 to n do beginfor j:=1 to m doa[i,j]:=random(25)+1;end;

for i:=1 to n do begin writeln;for j:=1 to m dowrite(a[i,j],' ');

end; writeln; WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:'); for i:=1 to n do begin min:=a[i,j]; for j:=2 to m do begin if min>a[i,j] then begin min:=a[i,j]; end; end; s:=s+min;

Write(min,' '); end; writeln('avg = ',(s/n):0:1);end.