В двумерном массиве размерностью 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;

begin

readln (n, m);

s:=0;

for i:=1 to n do begin

for j:=1 to m do

a[i, j]:=random (25) + 1;

end;

for i:=1 to n do begin writeln;

for j:=1 to m do

write (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.