var a: array[1..10,1..10] of Integer; b: array[1..10] of Integer; i, j, min: Integer;Begin for i := 1 to 10 do begin min := 10; for j := 1 to 10 do begin a[i,j] := random(10); write(a[i,j],' '); if a[i,j] < min then min := a[i,j]; end; b[i] := min; writeln; end; writeln; for i := 1 to 10 do write(b[i],' '); End.